;; ;; 1 から引数までの和を返す ;; totalsum.scm ;; ;; 再帰 (define (totalSum val) (if (= val 0) 0 (+ val (totalSum (- val 1))))) ;; Guile では (car (command-line) ) は自分自身 ;; (cdr (command-line) ) に引数が入る (define *argv* (cdr (comma…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。