fork download
copy 
  1. {-# LANGUAGE ParallelListComp #-}
  2.  
  3. import Data.Ratio
  4. import Control.Monad
  5.  
  6. f :: Rational -> Rational -> Rational
  7. f y z = 108 - (815 - 1500 / z) / y
  8.  
  9. x :: Int -> Rational
  10. x 0 = 4
  11. x 1 = 17 % 4
  12. x i = f (x (i-1)) (x (i-2))
  13.  
  14. xlist :: [Rational]
  15. xlist = 4 : 17 % 4 : zipWith f (tail xlist) xlist
  16.  
  17. xlist2 :: [Rational]
  18. xlist2 = 4 : 17 % 4 : [ f y z | y <- tail xlist2 | z <- xlist2 ]
  19.  
  20. main = forM_ (zip3 [0..29] xlist xlist2) $ \(i, xitem, xitem2) -> do
  21. 	print (i, x i)
  22. 	print (i, xitem)
  23. 	print (i, xitem2)
  24. 	putStrLn ""
  25.  
Success #stdin #stdout 1.74s 6244KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(0,4 % 1)
(0,4 % 1)
(0,4 % 1)

(1,17 % 4)
(1,17 % 4)
(1,17 % 4)

(2,76 % 17)
(2,76 % 17)
(2,76 % 17)

(3,353 % 76)
(3,353 % 76)
(3,353 % 76)

(4,1684 % 353)
(4,1684 % 353)
(4,1684 % 353)

(5,8177 % 1684)
(5,8177 % 1684)
(5,8177 % 1684)

(6,40156 % 8177)
(6,40156 % 8177)
(6,40156 % 8177)

(7,198593 % 40156)
(7,198593 % 40156)
(7,198593 % 40156)

(8,986404 % 198593)
(8,986404 % 198593)
(8,986404 % 198593)

(9,4912337 % 986404)
(9,4912337 % 986404)
(9,4912337 % 986404)

(10,24502636 % 4912337)
(10,24502636 % 4912337)
(10,24502636 % 4912337)

(11,122336033 % 24502636)
(11,122336033 % 24502636)
(11,122336033 % 24502636)

(12,611148724 % 122336033)
(12,611148724 % 122336033)
(12,611148724 % 122336033)

(13,3054149297 % 611148724)
(13,3054149297 % 611148724)
(13,3054149297 % 611148724)

(14,15265963516 % 3054149297)
(14,15265963516 % 3054149297)
(14,15265963516 % 3054149297)

(15,76315468673 % 15265963516)
(15,76315468673 % 15265963516)
(15,76315468673 % 15265963516)

(16,381534296644 % 76315468673)
(16,381534296644 % 76315468673)
(16,381534296644 % 76315468673)

(17,1907542343057 % 381534296644)
(17,1907542343057 % 381534296644)
(17,1907542343057 % 381534296644)

(18,9537324294796 % 1907542343057)
(18,9537324294796 % 1907542343057)
(18,9537324294796 % 1907542343057)

(19,47685459212513 % 9537324294796)
(19,47685459212513 % 9537324294796)
(19,47685459212513 % 9537324294796)

(20,238423809278164 % 47685459212513)
(20,238423809278164 % 47685459212513)
(20,238423809278164 % 47685459212513)

(21,1192108586037617 % 238423809278164)
(21,1192108586037617 % 238423809278164)
(21,1192108586037617 % 238423809278164)

(22,5960511549128476 % 1192108586037617)
(22,5960511549128476 % 1192108586037617)
(22,5960511549128476 % 1192108586037617)

(23,29802463602463553 % 5960511549128476)
(23,29802463602463553 % 5960511549128476)
(23,29802463602463553 % 5960511549128476)

(24,149012035582781284 % 29802463602463553)
(24,149012035582781284 % 29802463602463553)
(24,149012035582781284 % 29802463602463553)

(25,745059330625296977 % 149012035582781284)
(25,745059330625296977 % 149012035582781284)
(25,745059330625296977 % 149012035582781284)

(26,3725294111260656556 % 745059330625296977)
(26,3725294111260656556 % 745059330625296977)
(26,3725294111260656556 % 745059330625296977)

(27,18626462930705797793 % 3725294111260656556)
(27,18626462930705797793 % 3725294111260656556)
(27,18626462930705797793 % 3725294111260656556)

(28,93132291776736534004 % 18626462930705797793)
(28,93132291776736534004 % 18626462930705797793)
(28,93132291776736534004 % 18626462930705797793)

(29,465661390253305305137 % 93132291776736534004)
(29,465661390253305305137 % 93132291776736534004)
(29,465661390253305305137 % 93132291776736534004)
https://ideone.com/kF7R9v
language:
Haskell (ghc 8.4.4)
created:
10 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!