Revision as of 18:34, 6 August 2016 (view source) Walterpachl (talk \| contribs) m (RE) ← Older edit		Revision as of 20:06, 7 August 2016 (view source) Ulrie (talk \| contribs) (→‎{{header\|Haskell}}) Newer edit →
Line 194: findBabbageNumber :: Integer findBabbageNumber = head $ filter myCondition [1..] where ~~squarestring :: Integer -> String~~ ~~squarestring d = show ( d ^ 2 )~~ myCondition :: Integer -> Bool myCondition n = ~~drop~~mod ( ~~( length $ squarestring~~ n )^ ~~- 6~~2 ) ~~(squarestring n )~~1000000 == "269696" --print out the result

Babbage problem: Difference between revisions

Babbage problem (view source)