visual Euclidean algorithm by lynn

e=[]:e
x%y|x>y=foldr(zipWith(:))e$y%x|y>x=x%x++(map succ<$>x%(y-x))|r<-[1..x]='a'<$r<$r
f(a:b:_:c)=unlines$read[a,b]%read c
main=interact f

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)

download

return to the top page