悪戦苦闘

今日は実験がないので午前中に一時限授業があるだけ！
その間ずっと教科書読んだり、C++でクラス設計して過ごす。

昼食食べてバイト
今日も作業を進めるのですが、参考資料が少なくなかなか思うように進まない
ようやくヒントを得たくらいになってキャンパスを出る
今日はまっすぐ家に帰って勉強することに
今週末また寄席があって時間を作れないので、出来るうちにやっておかなければ

夕食までHaskellお勉強

夕食

で、今から勉強を始めるのだが、その前に書いた、ヘロンの公式

main = do cs <- getContents
          print $ triangle.map read.take 3 $ lines cs
      
triangle ::[Double] -> Double
triangle [a,b,c] = triangle' ((a+b+c) / 2)
        where
            triangle' s = sqrt(s*(s-a)*(s-b)*(s-c))

なんだか微妙に誤差があるような気がするが

まあいっか笑