Number reversal game: Difference between revisions
Added Arturo implementation
(Updated to work with Nim 1.4: replaced "import math" with "import random". Removed proc "shuffle" which is provided by module "random".) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 131:
end NumberReverse;
</lang>
=={{header|Arturo}}==
<lang rebol>arr: 1..9
while [arr = sort arr]->
arr: shuffle arr
score: 0
while [arr <> sort arr][
prints [arr "-- "]
digits: to :integer strip input "How many digits to reverse? "
arr: (reverse slice arr 0 digits-1) ++ slice arr digits (size arr)-1
score: score + 1
]
print ["Your score:" score]</lang>
{{out}}
<pre>[6 2 5 4 1 3 9 7 8] -- How many digits to reverse? 7
[9 3 1 4 5 2 6 7 8] -- How many digits to reverse? 9
[8 7 6 2 5 4 1 3 9] -- How many digits to reverse? 8
[3 1 4 5 2 6 7 8 9] -- How many digits to reverse? 4
[5 4 1 3 2 6 7 8 9] -- How many digits to reverse? 5
[2 3 1 4 5 6 7 8 9] -- How many digits to reverse? 2
[3 2 1 4 5 6 7 8 9] -- How many digits to reverse? 3
Your score: 7 </pre>
=={{header|Astro}}==
| |||