CUSIP: Difference between revisions
Content added Content deleted
(Added Quackery.) |
m (→{{header|Quackery}}: tidy) |
||
Line 3,290:
i^ 1 & if [ 2 * ]
10 /mod + + ]
10 mod 10 swap - 10 mod = ] is cusip ( $ --> b )
[ dup echo$ cusip iff
[ say " is correct." ]
else [ say " is incorrect." ]
cr ] is task ( $ --> )
$ "037833100 17275R102 38259P508 594918104 68389X106 68389X105"
Line 3,309:
68389X105 is correct.
</pre>
=={{header|Racket}}==
| |||