問題と答えのプロセスだけ。
最小公倍数と最大公約数を求めるんですわ。
Golf 的には、ラムダ計算はお得なことが少ないなあ。。。
 
http://golf.shinh.org/p.rb?LCM+of+1+to+n

m@main=readLn>>=(\x->print$foldl lcm 1[1..x])>>m
m@main=do n<-readLn;print$foldl lcm 1[1..n];m

http://golf.shinh.org/p.rb?GCD+of+1+to+n

main=print$take 10$iterate(+0)1
main=mapM print$take 10[1,1..]
m@main=getLine>>print 1>>m