fork download
copy 
  1. (><) i s= [(i, s)]
  2. (///) l = mapM_ ((*<>*) l "") [1..20]
  3.  
  4. (@-@) i j s r = if i `mod` j == 0 then s ++ r else s
  5.  
  6. (*<>*) [] = (^<>^)
  7. (*<>*) l  = (-<>-) l
  8. (^<>^) "" = print
  9. (^<>^) s  = const $ putStrLn s
  10. (-<>-) ((j, r):t) s  i = (*<>*) t ((@-@) i j s r ) i
  11.  
  12. main = (///) ((++) ((><) 3 "ふぃず") ((><) 5 "ばず"))
Success #stdin #stdout 0.01s 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/EwUVP
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!