fork download
  1. module Main where
  2.  
  3. fm a b m n
  4. |n==0 = a `mod` m
  5. |otherwise = fm b ((a+b)`mod` m) m (n-1)
  6.  
  7. fibm = fm 0 1
  8.  
  9. main:: IO()
  10. main= do
  11. putStrLn "Input m"
  12. m<-readLn
  13. putStrLn "Input n"
  14. n<-readLn
  15. print (fibm m n)
  16.  
Success #stdin #stdout 0s 4732KB
stdin
105
1018
stdout
Input m
Input n
34