Number reversal game: Difference between revisions
Content deleted Content added
→{{header|REXX}}: added the REXX language. -- ~~~~ |
No edit summary |
||
Line 2,115:
fi
done</lang>
=={{header|XPL0}}==
<lang XPL0>int Taken, I, Digit, Num, Score, Rev, Temp;
char List(9);
include c:\cxpl\codes;
\make jumbled list of digits 1 to 9
[loop [Taken:= 0; \bit array indicates which digits are taken
for I:= 0 to 9-1 do
[repeat Digit:= Ran(9)+1 until (Taken & 1<<Digit) = 0;
Taken:= Taken + 1<<Digit; \mark digit as taken
List(I):= Digit; \add digit to the list
];
for I:= 0 to 9-2 do if List(I) > List(I+1) then quit;
]; \quit loop when digits are not in ascending order
Score:= 0;
loop [for I:= 0 to 9-1 do [IntOut(0, List(I)); ChOut(0, ^ )];
Num:= 0; for I:= 0 to 9-1 do Num:= Num*10 + List(I);
if Num = 123456789 then quit;
Text(0, "^M^JReverse how many digits? "); Rev:= IntIn(0);
for I:= 0 to Rev/2-1 do
[Temp:= List(I); List(I):= List(Rev-1-I); List(Rev-1-I):= Temp];
Score:= Score+1;
];
Text(0, "^M^JCongrats! You did it in "); IntOut(0, Score);
Text(0, " moves!!^M^J");
]</lang>
Example output:
<pre>
1 3 5 4 8 9 7 2 6
Reverse how many digits? 3
5 3 1 4 8 9 7 2 6
Reverse how many digits? 4
4 1 3 5 8 9 7 2 6
Reverse how many digits? 5
8 5 3 1 4 9 7 2 6
Reverse how many digits? 2
5 8 3 1 4 9 7 2 6
</pre>
| |||