Number reversal game: Difference between revisions

=={{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>