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
comments (?)
stdin 
105
1018
stdout 
Input m
Input n
34
https://ideone.com/4pZVQx
language:
Haskell (ghc 8.4.4)
created:
9 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!