与えられた木から、子→親への対応を作る CommonLispで書いてみる。 (defvar *tree* '(Root (Spine (Neck (Head)) (RClavicle (RUpperArm (RLowerArm (RHand)))) (LClavicle (LUpperArm (LLowerArm (LHand))))) (RHip (RUpperLeg (RLowerLeg (RFoot)))) (LHip…

(load "lambda-calc.l") (load "grass-primitive.l") (defvar %floor (lambda (m) (lambda (n) (funcall (% (% %ge m n) (lambda () (let ((c (% %floor (% %sub m n) n))) (% %cons ($ %succ %car c) (% %cdr c)))) (lambda () (% %cons %0 m))))))) (defun…

世界で最初のGrassプログラム - Garage uenoB 実行速度が全然違うなー（短い方が遅い) アナゴルとかでGrass使えるようにならないかなあ（ぉ アナゴルってちゃんと見たことなかったけど anarchy golf Language is selected by extension. Supported types are…