はわわーっ

はわわわわっ

scheme

scheme のリストとか

scheme の勉強中。書いたコードを残しておく。 (define (double-list ls) (if (null? ls) () (cons (* 2 (car ls)) (double-list (cdr ls))))) (print (double-list '(1 2 3 4 5))) ;(2 4 6 8 10) (print (double-list '())) ;() (define (multiply-list m l…

scheme で再帰とか

なんとなく scheme し始めたので勉強ついでにブログに書いていく。 再帰とか関数の定義とかそのへん。 (define (factorial n) (if (= n 0) 1 (* n (factorial (- n 1))))) (print (factorial 4)) ;24 (define (double-factorial n) (cond ((= n 0) 1) ((= n …