gauche で スクリプト

下のように書くとスクリプトが作れるみたい ようやくお仕事中に Lispが使えそうだぞっ。ふひひ。 #!/usr/bin/env gosh (use gauche.process) (print "script run!") (run-process '(ls -la) :wait #t) (print "script end!") https://practical-scheme.net/gauche/man/gauche-refj/SchemesukuriputowoShu-ku.html http://www.cudo29.org/gauche.html

マクロの練習

マクロをうまく使いこなせるようになりたいので練習中。 イマイチ何に使えるのか理解してないけど、こんな感じかな・・・ 参考;マ&#x

完全数を探してみる

奇数の完全数ってないらしい。 探してみようかな。 DrScheme で実行中・・・ (define (perfect-number num) (define (list-add lat) (cond ((null? lat) 0) (else (+ (car lat) (list-add (cdr lat)))))) (cond ((null? num) #f) ((number? num) (= (list-add (division-list num)) num)))) (define (division-list n) (define (div-support n num) (cond ((zero? n) '())