Number reversal game: Difference between revisions
Content added Content deleted
(Added Quackery.) |
(Number reversal game in Yabasic) |
||
Line 4,876: | Line 4,876: | ||
5 8 3 1 4 9 7 2 6 |
5 8 3 1 4 9 7 2 6 |
||
</pre> |
</pre> |
||
=={{header|Yabasic}}== |
|||
<lang yabasic>// Rosetta Code problem: https://www.rosettacode.org/wiki/Number_reversal_game |
|||
// by Jjuanhdez, 06/2022 |
|||
print "Given a jumbled list of the numbers 1 to 9, " |
|||
print "you must select how many digits from the left " |
|||
print "to reverse. Your goal is to get the digits in " |
|||
print "order with 1 on the left and 9 on the right.\n" |
|||
dim nums(10) |
|||
dim a(10) |
|||
intentos = 0: denuevo = true: colum = 6 |
|||
//valores iniciales |
|||
for i = 1 to 9 |
|||
nums(i) = i |
|||
next i |
|||
for i = 9 to 2 step -1 |
|||
n = int(ran(i)) + 1 |
|||
if n <> i then |
|||
a(i) = nums(i) |
|||
nums(i) = nums(n) |
|||
nums(n) = a(i) |
|||
fi |
|||
next i |
|||
repeat |
|||
if intentos < 10 print " "; |
|||
print intentos, ": "; |
|||
for i = 1 to 9 |
|||
print nums(i), " "; |
|||
next i |
|||
if not denuevo break |
|||
input " -- How many do we flip " volteo |
|||
if volteo < 0 or volteo > 9 volteo = 0 |
|||
for i = 1 to int(volteo / 2) |
|||
a(i) = nums(volteo - i + 1) |
|||
nums(volteo - i + 1) = nums(i) |
|||
nums(i) = a(i) |
|||
next i |
|||
denuevo = false |
|||
//comprobamos el orden |
|||
for i = 1 to 8 |
|||
if nums(i) > nums(i + 1) then |
|||
denuevo = true |
|||
break |
|||
fi |
|||
next i |
|||
if volteo > 0 intentos = intentos + 1 |
|||
until false |
|||
print "\n\n You needed ", intentos, " attempts." |
|||
end</lang> |
|||
=={{header|zkl}}== |
=={{header|zkl}}== |