Revision as of 17:24, 10 July 2020 (view source) rosettacode>Droberts (added Haskell) ← Older edit		Revision as of 17:29, 10 July 2020 (view source) rosettacode>Droberts m (→‎{{header\|Haskell}}) Newer edit →
Line 648: main :: IO () main = mapM_ (uncurry(printf "%s6s is valid: %s\n") . ((,) <*> show . damm) . show) [5724, 5727, 112946, 112949]</lang> {{out}} <pre> 5724 is valid: True 5727 is valid: False 112946 is valid: True 112949 is valid: False</pre> ~~</pre>~~ =={{header\|J}}== '''Solution:'''

Damm algorithm: Difference between revisions

Damm algorithm (view source)