分からない問題はここに書いてね457

分からない問題はここ ..

451:１３２人目の素数さん
20/01/18 15:22:20 EsuXaTYh.net
こんなのやらせて数学力とかはかれるんだろうか？

euclid (x,0)=[(x,0)]
euclid (x,y) = (x,y):(euclid (y,mod x y))
main = do
mapM_ print $ euclid (1234567,89101112)

(1234567,89101112)
(89101112,1234567)
(1234567,212288)
(212288,173127)
(173127,39161)
(39161,16483)
(16483,6195)
(6195,4093)
(4093,2102)
(2102,1991)
(1991,111)
(111,104)
(104,7)
(7,6)
(6,1)
(1,0)

次ページ

続きを表示

1を表示