Taxicab numbers: Difference between revisions

Content deleted Content added

Inline

@@ Line 1,185: / Line 1,185: @@
     (comparing fst)
     [ (fst x + fst y, (x, y))
-    | (x:t) <- tails $ ((,) =<< (^ 3)) <$> [1 .. nCubes]
+    | (x:t) <- tails $ ((^ 3) >>= (,)) <$> [1 .. nCubes]
     , y <- t ]
@@ Line 1,211: / Line 1,211: @@
   concat <$>
   transpose
+    (((<$>) =<< flip justifyRight ' ' . maximum . (length <$>)) <$>
-    ((\col ->
-         let w = maximum (length <$> col)
-         in (justifyRight w ' ' <$> col)) <$>
      transpose (taxiRow <$> (take 25 xs ++ take 7 (drop 1999 xs))))
   where