2008-06-01から1日間の記事一覧

problem 13

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

problem 11

20*20 のサイズの行列について、縦横斜めに連続する 4 つの数字の積の中から最大のモノを見つけるという問題。 (use srfi-1) (use srfi-43) (use gauche.sequence) (define matrix (vector (vector 08 02 22 97 38 15 00 40 00 75 04 05 07 78 52 12 50 77 9…