Skip to content

Instantly share code, notes, and snippets.

View zeptometer's full-sized avatar

Yuito Murase zeptometer

38 followers · 11 following
View GitHub Profile
@zeptometer
zeptometer / gist:647143
Created October 26, 2010 15:42
aoj0525
import java.util.*;
public class Main{
public static void main(String[] args){
Scanner scn = new Scanner(System.in);
int row,col;
int[] cols;
int cnt_min = 10*10000;
row = scn.nextInt();
@zeptometer
zeptometer / gist:666151
Created November 7, 2010 14:32
aoj0509
import java.util.*;
public class aoj0509{
static final int rowmax = 10000;
public static void main(String[] args){
Scanner scn = new Scanner(System.in);
int num,mode;
Row[] rows = new Row[rowmax];
@zeptometer
zeptometer / infix.lisp
Created March 26, 2011 08:19
CLに中間記法を導入するリードマクロ。http://my.opera.com/zeptometer/blog/2011/03/27/cl
(defpackage :infix
(:use :cl)
(:export #:add-operator
#:add-infix-function
#:install-default-operators-and-infix-functions))
(in-package :infix)
(defconstant default-operators
'((1 ** expt :right)
@zeptometer
zeptometer / gist:1116685
Created July 31, 2011 10:35
(defun singlep (x) (and (consp x) (not (consp (cdr x)))))
(defun lambda-form? (form)
(and (consp form)
(eq (car form) 'lambda)
(every #'atom (cadr form))
(singlep (cddr form))))
(defun normalize-lambda-form (form)
(labels ((devide-lambda-list (vars body)
@zeptometer
zeptometer / Grass.lisp
Created August 7, 2011 13:07
grass interpreter in CL
(defpackage :grass
(:use :common-lisp
:split-sequence
:babel
:ppcre
:babel-streams)
(:export :grass-eval
:str-to-grass))
(in-package grass)
@zeptometer
zeptometer / gist:1185941
Created September 1, 2011 10:59
wwwwv ; \abcd.a
wv ; id
ww ; \xy.xy
WWwv
ww ; \xy.yx
Wwwv
wwww ; \mnfx.mf(nfx) := plus
WWWww
Www
WWWWWWwwww
@zeptometer
zeptometer / pku1095.c
Created October 16, 2011 12:11
#include <stdio.h>
#define M_MAX 18
int m[M_MAX],k[M_MAX];
void doit(int n){
int i=0,j=0,a,l,r,nl,nr;
if(n==1){printf("X");return;}
for(i=0;n>k[i];i++);
@zeptometer
zeptometer / .stumpwmrc.lisp
Created May 30, 2012 06:07
my .stumpwmrc
;-*-Lisp-*-
(in-package :stumpwm-user)
;;壁紙を設定
(run-shell-command "feh --bg-scale ~/Documents/minecraft.jpg")
;;;よく使うコマンド/キーバインドの設定
(set-prefix-key (kbd "C-q"))
(defcommand opera () ()
@zeptometer
zeptometer / aoj2170.cpp
Created June 4, 2012 10:45
2170.cpp
#include <cstdio>
#include <queue>
#define MAX 100001
using namespace std;
int mark[MAX],t[MAX];
int query(int v){
if(mark[v]) return v;
@zeptometer
zeptometer / gist:3346825
Created August 14, 2012 06:14
error code when compiling ieee-floats on ecl/vc++
> (ql:quickload :ieee-floats)
To load "ieee-floats":
Load 1 ASDF system:
ieee-floats; Loading "ieee-floats"
[package ieee-floats]ASDF-TMP-ieee-floats.c
eB857tmp.c
ライブラリ C:/Users/zeptometer/AppData/Local/common-lisp/cache/ecl-12.7.1-b3f
bf511-win-x86/E/Documents/emacs-home/lisp/.quicklisp/dists/quicklisp/software/ie
ee-floats-20101006-darcs/ieee-floats.implib とオブジェクト C:/Users/zeptometer/A
ppData/Local/common-lisp/cache/ecl-12.7.1-b3fbf511-win-x86/E/Documents/emacs-hom