valvallow (valvallow)

Name
valvallow
Email
Website/Blog
http://twitter.com/valvallow
Company
neet
Location
kumamoto, japan
Member Since
Dec 28, 2009

Following 0 coders and watching 5 repositories view all →

Public Repositories (4)

Public Activity feed

valvallow created gist: 370921 Mon Apr 19 04:17:25 -0700 2010
(use text.csv) (use gauche.charconv)
valvallow updated gist: 363688 Mon Apr 12 08:42:46 -0700 2010
;; tree-leaves ;; LOL 4.3 P.103~
valvallow created gist: 363688 Mon Apr 12 08:31:34 -0700 2010
;; tree-leaves ;; LOL 4.3 P.103~
valvallow updated gist: 362160 Sat Apr 10 10:13:16 -0700 2010
(defun flatten (x) (labels ((rec (x acc) (cond ((null x) acc)
valvallow created gist: 362160 Sat Apr 10 10:01:06 -0700 2010
;; flatten ;; (flatten '(1 2 3 (4 5 6 (7)((8) 9))((() 10)))) ;; -> (1 2 3 4 5 6 7 8 9 10)
valvallow updated gist: 361999 Sat Apr 10 07:43:15 -0700 2010
;; mkstr - http://d.hatena.ne.jp/leque/20090726 (define (mkstr . args) (call-with-string-output...
valvallow updated gist: 361999 Sat Apr 10 07:01:14 -0700 2010
;; mkstr - http://d.hatena.ne.jp/leque/20090726 (define (mkstr . args) (call-with-string-output...
valvallow updated gist: 361999 Sat Apr 10 07:00:59 -0700 2010
;; mkstr - http://d.hatena.ne.jp/leque/20090726 (define (mkstr . args) (call-with-string-output...
valvallow updated gist: 361999 Sat Apr 10 05:27:03 -0700 2010
;; mkstr - http://d.hatena.ne.jp/leque/20090726 (define (mkstr . args) (call-with-string-output...
valvallow updated gist: 361999 Sat Apr 10 05:26:14 -0700 2010
;; mkstr - http://d.hatena.ne.jp/leque/20090726 (define (mkstr . args) (call-with-string-output...
valvallow created gist: 361999 Sat Apr 10 05:25:28 -0700 2010
;; utilities ;; mkstr
valvallow updated gist: 357649 Tue Apr 06 08:26:02 -0700 2010
;; nif (define-macro (nif expr pos zero neg)
valvallow updated gist: 357649 Tue Apr 06 08:25:48 -0700 2010
;; nif (define-macro (nif expr pos zero neg)
valvallow updated gist: 357649 Tue Apr 06 07:33:51 -0700 2010
;; nif (define-macro (nif expr pos zero neg)
valvallow created gist: 357649 Tue Apr 06 07:23:15 -0700 2010
;; nif (define-macro (nif expr pos zero neg)
valvallow created gist: 357598 Tue Apr 06 06:39:27 -0700 2010
;; nlet (define-macro (nlet n letargs . body)
valvallow updated gist: 356167 Mon Apr 05 02:04:21 -0700 2010
;; let-optionals* (define (make-counters . args)
valvallow created gist: 356167 Mon Apr 05 01:51:13 -0700 2010
;; let-optionals*
valvallow created gist: 352069 Thu Apr 01 09:51:24 -0700 2010
;; list-product ;; (list-product '(1 2 3 4 5))
valvallow created gist: 350583 Wed Mar 31 10:11:51 -0700 2010
;; length (define add1
valvallow pushed to master at valvallow/TheSeasonedSchemer Mon Mar 29 08:47:27 -0700 2010
valvallow updated gist: 347780 Mon Mar 29 07:24:50 -0700 2010
;; syntax (define-syntax my-when
valvallow updated gist: 347832 Mon Mar 29 06:35:15 -0700 2010
;; fluid-let macro (define-macro (my-fluid-let xexe . body)
valvallow created gist: 347832 Mon Mar 29 06:30:20 -0700 2010
;; fluid-let macro (define-macro (my-fluid-let xexe . body)
valvallow created gist: 347795 Mon Mar 29 05:35:22 -0700 2010
;; fluid-let (define x 10)
valvallow created gist: 347782 Mon Mar 29 05:04:11 -0700 2010
;; if ;; http://www.shido.info/lisp/scheme_syntax.html
valvallow created gist: 347781 Mon Mar 29 04:57:30 -0700 2010
;; or ;; http://www.sampou.org/scheme/t-y-scheme/t-y-scheme-Z-H-10.html#node_chap_8
valvallow created gist: 347780 Mon Mar 29 04:57:17 -0700 2010
;; when, unless, macroexpand ;; http://www.sampou.org/scheme/t-y-scheme/t-y-scheme-Z-H-10.html#no...
valvallow updated gist: 313386 Sun Mar 28 04:50:10 -0700 2010
; member? ; The Little Schemer
valvallow updated gist: 346721 Sun Mar 28 04:47:32 -0700 2010
;; deep ;; (deep 3)
valvallow updated gist: 346721 Sun Mar 28 04:47:19 -0700 2010
;; deep ;; (deep 3)
valvallow created gist: 346721 Sun Mar 28 04:41:23 -0700 2010
;; deep ;; (deep 3)
valvallow created gist: 346715 Sun Mar 28 04:35:13 -0700 2010
(use srfi-42) (do-ec (: n 10)(display n))
valvallow created gist: 346713 Sun Mar 28 04:30:59 -0700 2010
;; chapter.15 (define x
valvallow updated gist: 344753 Fri Mar 26 03:51:37 -0700 2010
;; append1 ;; fold-right