ﾚｽ書き込み

なあ、再帰関数好きな人いる？パート3 [転載禁止]©2ch.net

PC,ｽﾏﾎ,PHSは ULA べっかんこ公式(ｽﾏﾎ) 公式(PC) で書き込んでください｡

名前
ﾒｰﾙ
引用切替：ﾚｽｱﾝｶｰのみ

>>724
> import Data.Function (on)
> import Data.List (concatMap, groupBy)
> main =
>     let (f:r) = mypi 2 4 1 12 4
>         s     = slice 5 $ slice 10 $ concatMap show r
>     in putStrLn (show f ++ ".")
>        >> putStr (unlines $ map unwords $ take 200 s)
> slice :: Int -> [a] -> [[a]]
> slice n ls = let q = concatMap (replicate n) [0..] :: [Int]
>              in  map (map snd) $ groupBy ((==) `on` fst) $ zip q ls
> mypi :: Integer -> Integer -> Integer -> Integer -> Integer -> [Integer]
> mypi k a b a1 b1 =
>     let p   = k * k
>         q   = 2 * k + 1
>         a'  = a1
>         b'  = b1
>         a1' = p * a + q * a1
>         b1' = p * b + q * b1
>         loop a a1 d d1 =
>             if d == d1 then
>                 d : let a'  = 10 * (a  `rem` b' )
>                         a1' = 10 * (a1 `rem` b1')
>                     in loop a' a1' (a' `quot` b') (a1' `quot` b1')
>             else
>                 mypi (k + 1) a b' a1 b1'
>      in loop a' a1' (a' `quot` b') (a1' `quot` b1')
> えんしうりつを100まんけたひょうじする

ﾛｰｶﾙﾙｰﾙ SETTING.TXT

他の携帯ﾌﾞﾗｳｻﾞのﾚｽ書き込みﾌｫｰﾑはこちら｡書き込み設定で書き込みｻｲﾄの設定ができます｡
・ULA
・べっかんこ(身代わりの術)
・べっかんこ(通常)
・公式(ｽﾏﾎ)
・公式(PC)[PC,ｽﾏﾎ,PHS可]

書き込み設定(板別)で板別の名前とﾒｰﾙを設定できます｡

上下板覧索設栞歴

ぬこの手ぬこTOP 0.017s