1
0
Fork 0

Formatting

main
Bill Ewanick 2023-09-12 16:05:20 -04:00
parent 68226c0057
commit cabaf3f321
1 changed files with 3 additions and 3 deletions

View File

@ -3,15 +3,15 @@
import Debug.Trace (trace)
twoDigitProducts :: [Integer]
twoDigitProducts = [ n*m | n <- [10..99], m <- [n..99] ]
twoDigitProducts = [ n*m | n <- [10..99], m <- [n..99] ]
isPalindrome :: Integer -> Bool
isPalindrome n = all (== True) $ zipWith (==) half half'
where
(half, half'') = splitAt h n'
half' = reverse half''
h = length n' `div` 2
n' = show n
h = length n' `div` 2
n' = show n
-- n' = trace (show n) $ show n
solve :: Integer