fork download
copy 
  1. import System.IO.Unsafe
  2.  
  3. main = print (faktorial 5)
  4.  
  5. faktorial n	| n==0 = 1
  6. 			| True = seq (printBezIO $ "vichisljaem faktorial! " ++ show n)
  7. 						 (n*faktorial (n-1))
  8.  
  9. printBezIO = unsafePerformIO . print
Success #stdin #stdout 0s 4600KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
"vichisljaem faktorial! 5"
"vichisljaem faktorial! 4"
"vichisljaem faktorial! 3"
"vichisljaem faktorial! 2"
"vichisljaem faktorial! 1"
120
https://ideone.com/gbyLuE
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!