Taxicab numbers: Difference between revisions
m
→{{header|Haskell}}
m (→{{header|JavaScript}}: (normalised spacing in existing version)) |
|||
Line 1,185:
(comparing fst)
[ (fst x + fst y, (x, y))
| (x:t) <- tails $ ((
, y <- t ]
Line 1,211:
concat <$>
transpose
▲ let w = maximum (length <$> col)
transpose (taxiRow <$> (take 25 xs ++ take 7 (drop 1999 xs))))
where
|