レス数が1スレッドの最大レス数(1000件)を超えています。残念ながら投稿することができません。

ヒッキープログラミングスレ

597：（-＿-）さん：2013/06/12(水) 19:15:30 ID:???: 強引に足し算を作ってみた

(label add1 (lambda (x) (cond ((atom x) (cond ((eq x '0) '1) ((eq x '1) '2) ((eq x '2) '3) ((eq x '3) '4) ((eq x '4) '6) ((eq x '5) '6) ((eq x '6) '7) ((eq x '7) '8) ((eq x '8) '9) ((eq x '9) '(0 . 1)) ('T 'nil))) ('T (cons (cond ((atom (add1 (car x))) (add1 (car x))) ('T (car (add1 (car x))))) (cond ((atom (add1 (car x))) (cdr x)) ('T (add1 (cdr x)))))))))

(add1 (add1 (add1 '(7 9 . 9))))

掲示板管理者へ連絡無料レンタル掲示板