fork download
copy 
  1. f :: Int -> Int -> Int -> Int
  2. f i j k
  3. 	| i > 10 = 0
  4.     | j > 10 = f (i+1) 1 1
  5.     | k > 10 = f i (j+1) 1
  6.     | otherwise = 1 + f i j (k+1)
  7.  
  8. main = print $ f 1 1 1
Success #stdin #stdout 0s 4396KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1000
https://ideone.com/E1z7Z8
language:
Haskell (ghc 8.4.4)
created:
7 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!