Taxicab numbers: Difference between revisions

m
→‎{{header|Haskell}}: Removed a redundant import
m (→‎{{header|Haskell}}: (Rearranged pretty-printing to occupy less vertical space on the code page))
m (→‎{{header|Haskell}}: Removed a redundant import)
Line 1,174:
=={{header|Haskell}}==
 
<lang haskell>import Data.List (sortBy, groupBy, tails, transpose, maximumBy)
import Data.Ord (comparing)
 
Line 1,188:
, y <- t ]
 
-- Taxicab numbers composed usingamong first 1200 cubes
xs :: [(Int, [(Int, ((Int, Int), (Int, Int)))])]
xs = zip [1 ..] (taxis 1200)
9,659

edits