bill
/
universal-calculator
1
0
Fork 0
Code

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/projectEuler/question4.hs
View File

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