http://github.com/yppp/sevenlang二次元配列の総和 dim2sum := method(n, n flatten sum) dim2sum := method(n, n prepend(0) reduce(x, y, x = x + y sum)) Listに自分で定義した平均を求めるメソッドを追加、数字以外が混ざっていたら例外を投げるように …

フィボナッチ数 fib := method(n, if(n < 2, n, fib(n - 1) + fib(n - 2)) ) Io> fib(10) ==> 55 ループ版 fib := method(n, fir ::= 0 sec ::= 1 tmp ::= 0 n repeat( tmp = sec sec = sec + fir fir = tmp ) fir ) fib(31) println 分母がゼロの時答えがゼ…