Ideone.com

download

main = putStrLn $ 20.16 ! 12
 
(%)=replicate.round
s=show
x!y|(n,m)<-properFraction x=[s n,(y*m)%'|',(y-y*m)%' ',s$n+1,"\n",s n>>" ",y%'-']>>=id

Success #stdin #stdout 0s 4704KB

stdin

Standard input is empty

stdout

20||          21
  ------------

https://ideone.com/7piaaC

language:

Haskell (ghc 8.4.4)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

Widget for compiling and running the source code in a web browser!