Schemeにもパターンマッチがあるらしい。 8 Pattern Matching Gauche ユーザリファレンス: 11.46 util.match - パターンマッチング 知らなかった・・・使ってみる。 (require (lib "match.ss")) (match '(1 2 3) ((a b c) (list c b a)) (_ 'else)) ; (3 2 1…

M系列乱数を作ってみた。 M系列乱数は、R(n) = R(n-p) xor R(n-q)の漸化式で作れる。 と言っても最初が必要なので、既存のアルゴリズムを使用して、乱数テーブルを作っておく必要がある。nを１個ずつ進めながらxorで計算していく。nの余りを取っていけば、テ…