aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Task/Long-multiplication/Haskell/long-multiplication-1.hs
View file

@ -1,16 +1,20 @@
import Data.List (transpose)
import Data.List (transpose, inits)
import Data.Char (digitToInt)
import Data.List (inits)
digits :: Integer -> [Integer]
digits = map (fromIntegral . digitToInt) . show
digits = fmap (fromIntegral . digitToInt) . show
lZZ :: [[Integer]]
lZZ = inits $ repeat 0
table f = map . flip (map . f)
table :: (Integer -> Integer -> Integer) -> [Integer] -> [Integer] -> [[Integer]]
table f x = fmap $ flip fmap x . f
polymul = ((map sum . transpose . zipWith (++) lZZ) .) . table (*)
polymul :: [Integer] -> [Integer] -> [Integer]
polymul xs ys = fmap sum (transpose (zipWith (++) lZZ (table (*) xs ys)))
longmult = (foldl1 ((+) . (10 *)) .) . (. digits) . polymul . digits
longmult :: Integer -> Integer -> Integer
longmult x y = foldl1 ((+) . (10 *)) (polymul (digits x) (digits y))
main :: IO ()
main = print $ (2 ^ 64) `longmult` (2 ^ 64)

3
Task/Long-multiplication/Haskell/long-multiplication-3.hs
View file

@ -1,3 +0,0 @@
procedure main()
write(2^64*2^64)
end