たらい回しをracketで動かしてみた ― 2011/07/31 15:48
macBookPro(2009) 2.53mHz
memory 8GB
racket 5.1.1
(define (tak x y z)
(if (> x y)
(tak (tak (- x 1) y z)
(tak (- y 1) z x)
(tak (- z 1) x y))
y))
> (time (tak 12 6 0))
cpu time: 1657 real time: 1658 gc time: 66
12
> (time (tak 13 7 0))
cpu time: 11923 real time: 11920 gc time: 0
13
> (time (tak 14 8 0))
cpu time: 89862 real time: 90156 gc time: 0
14
>
memory 8GB
racket 5.1.1
(define (tak x y z)
(if (> x y)
(tak (tak (- x 1) y z)
(tak (- y 1) z x)
(tak (- z 1) x y))
y))
> (time (tak 12 6 0))
cpu time: 1657 real time: 1658 gc time: 66
12
> (time (tak 13 7 0))
cpu time: 11923 real time: 11920 gc time: 0
13
> (time (tak 14 8 0))
cpu time: 89862 real time: 90156 gc time: 0
14
>
コメントをどうぞ
※メールアドレスとURLの入力は必須ではありません。 入力されたメールアドレスは記事に反映されず、ブログの管理者のみが参照できます。
※なお、送られたコメントはブログの管理者が確認するまで公開されません。
※投稿には管理者が設定した質問に答える必要があります。