Number reversal game: Difference between revisions
Content deleted Content added
Added Elixir |
|||
Line 2,117: | Line 2,117: | ||
=={{header|Oforth}}== |
=={{header|Oforth}}== |
||
<lang Oforth> |
<lang Oforth>import: console |
||
{ |
|||
: reversalGame |
|||
| l n | |
| l n | |
||
doWhile: [ |
doWhile: [ |
||
ListBuffer new ->l |
ListBuffer new ->l |
||
while(l size 9 <>) [ 9 rand dup l include ifFalse: [ l add ] else: [ drop ] ] |
while(l size 9 <>) [ 9 rand dup l include ifFalse: [ l add ] else: [ drop ] ] |
||
l sort l == |
l sort l == |
||
] |
] |
||
0 while(l sort l <>) [ |
0 while(l sort l <>) [ |
||
System.Out "List is " << l << " ==> how many digits from left to reverse : " < |
System.Out "List is " << l << " ==> how many digits from left to reverse : " <- |
||
System.Console askln asInteger dup ifNull: [ drop continue ] ->n |
System.Console askln asInteger dup ifNull: [ drop continue ] ->n |
||
1 |
1+ l left(n) reverse l right(l size n -) + ->l |
||
] |
] |
||
"You won ! Your score is : |
"You won ! Your score is :" . println ;</lang> |
||
}</lang> |
|||
{{out}} |
{{out}} |