blob: f9e63aa5ba9e7af452ca2f9d614b957f58140cad (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
import Data.Ratio -- 1.3
import Data.Array -- 1.3
infix 1 =:
(=:) a b = (a,b)
main = putStr (shows sub_b "\n")
where
sub_b :: Array Int Double
sub_b = ixmap (102, 113) id b
b :: Array Int Double
b = fmap ( \ r -> fromRational r / pi )
(ixmap (101,200) (\ i -> toInteger i - 100) a)
a :: Array Integer (Ratio Integer)
a = array (1,100) ((1 =: 1) : [i =: fromInteger i * a!(i-1)
| i <- [2..100]])
|
