Damm algorithm: Difference between revisions
Content added Content deleted
(added Haskell) |
|||
Line 648: | Line 648: | ||
main :: IO () |
main :: IO () |
||
main = mapM_ (uncurry(printf "% |
main = mapM_ (uncurry(printf "%6s is valid: %s\n") . ((,) <*> show . damm) . show) |
||
[5724, 5727, 112946, 112949]</lang> |
[5724, 5727, 112946, 112949]</lang> |
||
{{out}} |
{{out}} |
||
<pre>5724 is valid: True |
<pre> 5724 is valid: True |
||
5727 is valid: False |
5727 is valid: False |
||
112946 is valid: True |
112946 is valid: True |
||
112949 is valid: False |
112949 is valid: False</pre> |
||
</pre> |
|||
=={{header|J}}== |
=={{header|J}}== |
||
'''Solution:''' |
'''Solution:''' |