2019-01-27

Haskell ``` モンテカルロ montecarloPai Double let randomRs mkStdGen paisA take 1000 paisB drop zipPais zip zipPaisFilter filter fst snd return ((( fromIntegral length ))) ストレス Common Lisp ~~# コード 掲示板

日常

Haskell

-- モンテカルロ
montecarloPai :: IO Double
montecarloPai = do
  let rs = randomRs (0,1) (mkStdGen 12) :: [Double]
      paisA = take 1000 $ rs
      paisB = take 1000 $ drop 1000 rs
      zipPais = zip paisA paisB
      zipPaisFilter = filter (\x -> ((fst x) * (fst x) + (snd x) * (snd x)) <= 1.0) zipPais
  return (((4.0 * ((fromIntegral (length zipPaisFilter)) :: Double))) / 1000.0)

え、なにこれは・・・。

書くときストレスで死にそうになった。

Common Lispに帰る。

# Common Lisp

帰・・・らない・・・!

きっとこれはHaskellに慣れてないせいなんだ。もっといいコードが書けるはずなんだ。

それはさておき掲示板書いていく。

掲示板

今日やったこと

明日やること

comment:

Tweet

Home