Anonymous user
Number reversal game: Difference between revisions
→{{header|VBA}}: Incomplete.
(→{{header|VBA}}: Incomplete.) |
|||
Line 3,615:
=={{header|VBA}}==
{{incomplete|VBA|No check for an initial scramble to the sorted state (refer to talk page for relevant discussion on issue).}}
{{trans|Phix}}<lang vb>Private Function shuffle(ByVal a As Variant) As Variant
Dim t As Variant, i As Integer
Line 3,678 ⟶ 3,679:
8 : 1 2 3 4 5 6 7 8 9
You took 8 turns to put the digits in order.</pre>
=={{header|XPL0}}==
<lang XPL0>int Taken, I, Digit, Num, Score, Rev, Temp;
| |||