２乗値

眠い、眠いです。
HTMLとかについて調べてたらもうこんな時間

Haskellで、２乗智を求めるプログラムを書いてみた。
でも普通に作ったのでは面白くないので
整数nがあったとき、整数(n-1)の２乗値は、n^2よりも、2n-1だけ小さいことを利用して作りました。

main= print $ sum $map jous [1,2..14]

jous :: Int -> Int
jous n = 2*n-1

この、リストの最後の14にあたる部分の２乗値を出します。