読者です 読者をやめる 読者になる 読者になる

プログラムdeタマゴ

nodamushiの著作物は、文章、画像、プログラムにかかわらず全てUnlicenseです

実行させてはならない

プログラム
(define ack (lambda (x y)
              (define ack1 (lambda (list y1)
                             (cond 
                               ((null? list) y1)
                               ((eq? (car list) 0) (ack1 (cdr list) (+ y1 1)))
                               ((eq? y1 0) (ack1 (cons (- (car list) 1) (cdr list)) 1))
                               (else (ack1 (cons (car list) (cons (- (car list) 1) (cdr list))) (- y1 1))))))
              (ack1 (cons x null) y)))
(ack 4 1)

なぁんとなく、走らせてみたが、一曲聴き終わっても計算終わりませんでした。