fork(1) download 
  1. import Data.Array
  2. import Data.Function
  3.  
  4. yoba :: Int -> Int
  5. yoba n = (! n) $ fix (\yoba' -> listArray (0, n) (0 : [v - yoba' ! (yoba' ! pred v) | v <- [1..n]]))
  6.  
  7. main = print $ yoba 201200
stdin 
Standard input is empty
compilation info 
[1 of 1] Compiling Main             ( prog.hs, prog.o )
Linking prog ...
stdout 
124349
https://ideone.com/Wnb1x
language:
Haskell (ghc 8.4.4)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!