fork download 
  1. prov n = rev 0 n
  2.     where 
  3.         rev acc 0 = acc
  4.         rev acc n = rev (acc * 10 + mod n 10) (div n 10)
  5.  
  6. main = -- your code goes here
  7. 	putStrLn (show (prov 12345))
Success #stdin #stdout 0s 4548KB
comments (?)
stdin 
Standard input is empty
stdout 
54321
https://ideone.com/B7RN1P
language:
Haskell (ghc 8.4.4)
created:
10 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!