From 34873fd7fa356aeca06ca2df3a05398eae927356 Mon Sep 17 00:00:00 2001 From: Alexander Pankoff Date: Sun, 27 Nov 2022 16:32:09 +0100 Subject: Slightly update haskell solution for ch-192 --- challenge-192/alexander-pankoff/haskell/ch-2.hs | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/challenge-192/alexander-pankoff/haskell/ch-2.hs b/challenge-192/alexander-pankoff/haskell/ch-2.hs index c436550291..c0d023a906 100755 --- a/challenge-192/alexander-pankoff/haskell/ch-2.hs +++ b/challenge-192/alexander-pankoff/haskell/ch-2.hs @@ -4,6 +4,7 @@ module Main where import Test.HUnit import Data.List (singleton) +import GHC.Natural (Natural) main = runTestTT $ TestList @@ -18,12 +19,16 @@ main = runTestTT (Just 0) (equalDistribution $ singleton 4)] -equalDistribution :: [Int] -> Maybe Int +equalDistribution :: [Int] -> Maybe Natural equalDistribution [] = Just 0 equalDistribution xs = let total = sum xs target = total `div` length xs isDistributable = total `mod` length xs == 0 in if isDistributable - then Just $ sum $ map abs $ scanl (\a b -> a + b - target) 0 xs + then Just + $ fromIntegral + $ sum + $ map abs + $ scanl (\a b -> a + b - target) 0 xs else Nothing \ No newline at end of file -- cgit From aa6b81c66b415a87d438d6f8c5f4ea857e0b69e0 Mon Sep 17 00:00:00 2001 From: Alexander Pankoff Date: Sun, 27 Nov 2022 16:55:08 +0100 Subject: Add blog post for challenge 192 --- challenge-192/alexander-pankoff/blog.txt | 1 + 1 file changed, 1 insertion(+) create mode 100644 challenge-192/alexander-pankoff/blog.txt diff --git a/challenge-192/alexander-pankoff/blog.txt b/challenge-192/alexander-pankoff/blog.txt new file mode 100644 index 0000000000..5e3c5269c8 --- /dev/null +++ b/challenge-192/alexander-pankoff/blog.txt @@ -0,0 +1 @@ +https://pankoff.net/pages/perl-weekly-challenge/challenge-192.html \ No newline at end of file -- cgit