Yoichi's diary

_ 二見シーパラダイス

トドとセイウチの迫力がすごかった。飼育員の人は足を踏まれないように注意してねと言っていたが、踏まれたらしゃれにならない気がする。

_ [Haskell] 引数は一度だけ評価される

fib :: Integer -> Integer
fib 1 = 1
fib 2 = 1
fib n = fib (n-1) + fib (n-2)
 
doubleNum :: (Num a) => a -> a
doubleNum a = a + a

ghci> :set +s
ghci> fib 30
832040
(1.07 secs, 327131304 bytes)
ghci> (fib 30) + (fib 30)
1664080
(2.10 secs, 643669672 bytes)
ghci> doubleNum $ fib 30
1664080
(1.07 secs, 322107624 bytes)

_ 電池切れ

朝目が覚めると部屋の時計が8時を指していた。まだ外が暗かったのでおかしいなと気付けたが、明るかったら焦っていたと思われる。

_ 滋賀

長浜鉄道スクエア→ヤンマーミュージアム

ヤンマーミュージアムはでパワーショベルのシミュレータをやらせてもらった。

_ 肉

集合かかったので急遽帰省。津の まるよし にて肉食った。

_ 蜻蛉池公園

岸和田の蜻蛉池公園に行ってきた。帰り道にあちこちでだんじりの準備が進められていた。