fork download
copy 
  1. main = (^<>^) (*<>*) (-<>-)
  2.  
  3. (^<>^) = mapM_
  4. (-<>-) = [1..20]
  5. (*<>*) = (///) . (><)
  6.  
  7. (///) = putStrLn
  8. (><) y | (@.@) y==0 = "ふぃずばず"
  9.        | (@-@) y==0 = "ばず"
  10.        | (@&@) y==0 = "ふぃず"
  11. (><) y = show y
  12.  
  13. (@^@) = flip mod
  14. (@.@) = (@^@) 15
  15. (@-@) = (@^@) 5
  16. (@&@) = (@^@) 3
Success #stdin #stdout 0.02s 3592KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1
2
uCZ
4
pZ
uCZ
7
8
uCZ
pZ
11
uCZ
13
14
uCZpZ
16
17
uCZ
19
pZ
https://ideone.com/knyE9
language:
Haskell (ghc 8.4.4)
created:
12 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!