(define (front-ptr queue) (car queue)) (define (rear-ptr queue) (cdr queue)) (define (set-front-ptr! queue item) (set-car! queue item)) (define (set-rear-ptr! queue item) (set-cdr! queue item)) (define (empty-queue? queue) (null? (front-pt…

gaucheの方が書きやすかったです。 処理を頭の中で分割しやすいような気がします。 (define (f seed) (define (enhance l) (map (lambda (x) (if (list? x) (enhance x) (map (cut * x <>) seed))) l)) enhance) (define (ntimes-function f n) (lambda (x) …

rubyを始めた時に、くくを出力するプログラムを作ったりしました。 くくはこんな感じで書けると思います。 (9*9じゃないからnnかもしれません＞＜) def kuku n (1..n).map{ |x| (1..n).map{ |y| x * y}} end kuku(2) # => [[1, 2], [2, 4]] これはn*nの要素…