highwide

eval$s=%w'x=0;$s[0..2]="x=#{(x+1)%2};";b=["BAhsKwGtf/j//3/g////Dz8M/wf+/x/+/38AAPh/wP///wf8MPwP+P8/wP//AADw/4B//P8PAMD8P/DBP8D//wcA4AMAYAAHAADA/wMAAH/A//////8HAEAAAAAA8AMAAAB+wP///w/8DwCABwDgAz4EAADAf8D/fwAAAP4D/v/B/wAAEIAf8H+A//8AAADwA/4DHwAAAOD/f8D/gOH/AwAAwAP+B34AAID//8MA/wAA/of//wAD/g/8//8D/g8AAPwAAPz///8DAnwA+H8AAPgDAADgAQDw+///AwAMAMAfAADAA/AP4AE84Pf//wMADAAADAAAwAf8//8BfsDn/38AAAz4AADw//8P+P/fA/6Ax/8AAH4c8AEAwP8HHwAAAAP+AYB/AAD/fwAARwAAAH4AAAAC/AcA/wHA//8BAP8DAAD8AwAABPwfAP4D////H8D/fwCA//8D+P/9/8EDAA==", "BAhsKwGt/x/4////f8D//4D///+BD3zg//8/8P/9DwAAAPgB////gx944AP8f+B/4B8AAADgA/7//wcPAAAE+AEAQAAnAAAAwAf8Af4AEAAACPADAIADAOB/4D8AcADwAeAf+B/gBwCAHwBAAAAAABAAwAPAAAAwwP8H/v8wgAAAAAAAQIA/4AEAYID/D/z/fwOBAwd+APiBP4D/wP8B/x8AAPwHAgce/gD8AX8AAAAAA/4HAABgAAQAAH8A/wN/AAAAAAb+AQAegAAMAAA4AP8DPgAdBxwP/ADA/wMCGBgPGAD+Bz4ADggAGPiAgYMPPDAADBgA/A8cEHwQAPz/gQMDDzgwMAB8GPgPGDD4IAA8wAMABgAwYOAA+DnwHwBwEEAAYIAPABwAMCAAAAB84H8A+GDAwIAAfwB4APhgIMAA/MD/AfzBOYCHAf4f/I//5+PwH/yB////A3+Av/8DAA=="];n=Marshal.load(b[x].unpack("m"

highwide

fibとfibiterの違い

(define (fib n) (if (< n 2) n (+ (fib (- n 1)) (fib (- n 2)))))

(define (fibiter a b count) (if (< count 1) b (fibiter (+ a b) a (- count 1)))) 

highwide

つくって学ぶプログラミング言語 3.2を理解しよう

与えられた式

[:let,
 [[:fact,
   [:lambda, [:n], [:if, [:<, :n, 1], 1, [:*, :n, [:fact, [:-, :n, 1]]]]]]],
 [:fact, 1]]