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