fork download
  1. import Data.List
  2.  
  3. sums [] bs = bs
  4. sums (a:as) bs = sums as ( zipWith (+) bs $ ( replicate a 0 ) ++ bs )
  5.  
  6. main = do
  7. print $ zip [0..] $ sums [1..100] $ 1 : replicate 100 0
Success #stdin #stdout 0.01s 5304KB
stdin
Standard input is empty
stdout
[(0,1),(1,1),(2,1),(3,2),(4,2),(5,3),(6,4),(7,5),(8,6),(9,8),(10,10),(11,12),(12,15),(13,18),(14,22),(15,27),(16,32),(17,38),(18,46),(19,54),(20,64),(21,76),(22,89),(23,104),(24,122),(25,142),(26,165),(27,192),(28,222),(29,256),(30,296),(31,340),(32,390),(33,448),(34,512),(35,585),(36,668),(37,760),(38,864),(39,982),(40,1113),(41,1260),(42,1426),(43,1610),(44,1816),(45,2048),(46,2304),(47,2590),(48,2910),(49,3264),(50,3658),(51,4097),(52,4582),(53,5120),(54,5718),(55,6378),(56,7108),(57,7917),(58,8808),(59,9792),(60,10880),(61,12076),(62,13394),(63,14848),(64,16444),(65,18200),(66,20132),(67,22250),(68,24576),(69,27130),(70,29927),(71,32992),(72,36352),(73,40026),(74,44046),(75,48446),(76,53250),(77,58499),(78,64234),(79,70488),(80,77312),(81,84756),(82,92864),(83,101698),(84,111322),(85,121792),(86,133184),(87,145578),(88,159046),(89,173682),(90,189586),(91,206848),(92,225585),(93,245920),(94,267968),(95,291874),(96,317788),(97,345856),(98,376256),(99,409174),(100,444793)]