2008-06-01 problem 13 scheme euler 与えられた 50 桁の数 100 個の和の上位 10 桁を求める問題。Gauche は多倍長の整数を扱えるので難しいところはありませんでした。 (print (substring (number->string (fold + 0 num-list)) 0 10))