fork download
  1. import Text.Printf
  2.  
  3. main = h 36 2650.00 >> putStrLn "" >> h 15 1220.00
  4. f (m,k,d,acc) = (m+1, k*1.01 - 88, k*0.01, acc + k*0.01)
  5. g (m,k,d,acc) = printf " %2d %7.2f %7.2f %7.2f" m k d acc
  6. h n k = mapM_ (putStrLn . g) . take (n+1) . iterate f $ (0,k,0,0)
Success #stdin #stdout 0s 6312KB
stdin
Standard input is empty
stdout
  0   2650.00      0.00      0.00
  1   2588.50     26.50     26.50
  2   2526.38     25.88     52.38
  3   2463.65     25.26     77.65
  4   2400.29     24.64    102.29
  5   2336.29     24.00    126.29
  6   2271.65     23.36    149.65
  7   2206.37     22.72    172.37
  8   2140.43     22.06    194.43
  9   2073.84     21.40    215.84
 10   2006.57     20.74    236.57
 11   1938.64     20.07    256.64
 12   1870.03     19.39    276.03
 13   1800.73     18.70    294.73
 14   1730.73     18.01    312.73
 15   1660.04     17.31    330.04
 16   1588.64     16.60    346.64
 17   1516.53     15.89    362.53
 18   1443.69     15.17    377.69
 19   1370.13     14.44    392.13
 20   1295.83     13.70    405.83
 21   1220.79     12.96    418.79
 22   1145.00     12.21    431.00
 23   1068.45     11.45    442.45
 24    991.13     10.68    453.13
 25    913.04      9.91    463.04
 26    834.17      9.13    472.17
 27    754.52      8.34    480.52
 28    674.06      7.55    488.06
 29    592.80      6.74    494.80
 30    510.73      5.93    500.73
 31    427.84      5.11    505.84
 32    344.11      4.28    510.11
 33    259.56      3.44    513.56
 34    174.15      2.60    516.15
 35     87.89      1.74    517.89
 36      0.77      0.88    518.77

  0   1220.00      0.00      0.00
  1   1144.20     12.20     12.20
  2   1067.64     11.44     23.64
  3    990.32     10.68     34.32
  4    912.22      9.90     44.22
  5    833.34      9.12     53.34
  6    753.68      8.33     61.68
  7    673.21      7.54     69.21
  8    591.95      6.73     75.95
  9    509.87      5.92     81.87
 10    426.96      5.10     86.96
 11    343.23      4.27     91.23
 12    258.67      3.43     94.67
 13    173.25      2.59     97.25
 14     86.99      1.73     98.99
 15     -0.14      0.87     99.86