Number reversal game: Difference between revisions
Content added Content deleted
Drkameleon (talk | contribs) |
Not a robot (talk | contribs) (Add FOCAL) |
||
Line 1,472: | Line 1,472: | ||
0 trials set |
0 trials set |
||
make-jumbled-array game-loop ;</lang> |
make-jumbled-array game-loop ;</lang> |
||
=={{header|FOCAL}}== |
|||
<lang FOCAL>01.10 D 3;S T=0 |
|||
01.20 F X=1,9;T %1,D(X) |
|||
01.30 T !;A "HOW MANY",R |
|||
01.40 I (R-1)1.3;I (9-R)1.3 |
|||
01.50 D 5;S T=T+1 |
|||
01.60 D 4;I (A-9)1.2 |
|||
01.70 D 1.2;T !"CORRECT! ATTEMPTS",%4,T,! |
|||
01.80 Q |
|||
02.10 S A=10*FRAN();S A=A-FITR(A) |
|||
03.10 F X=1,9;S D(X)=X |
|||
03.20 F X=1,8;D 2;S Y=X+FITR((10-X)*A);S A=D(X);S D(X)=D(Y);S D(Y)=A |
|||
03.30 D 4 |
|||
03.40 I (8-A)3.1 |
|||
04.10 S A=0 |
|||
04.20 F X=1,9;D 4.4 |
|||
04.30 R |
|||
04.40 I (D(X)-X)4.3,4.5,4.3 |
|||
04.50 S A=A+1 |
|||
05.10 F X=1,R/2;S A=D(X);S D(X)=D(R-X+1);S D(R-X+1)=A</lang> |
|||
{{out}} |
|||
<pre>= 1= 6= 4= 5= 8= 7= 9= 2= 3 |
|||
HOW MANY:9 |
|||
= 3= 2= 9= 7= 8= 5= 4= 6= 1 |
|||
HOW MANY:2 |
|||
= 2= 3= 9= 7= 8= 5= 4= 6= 1 |
|||
HOW MANY:8 |
|||
= 6= 4= 5= 8= 7= 9= 3= 2= 1 |
|||
HOW MANY:3 |
|||
= 5= 4= 6= 8= 7= 9= 3= 2= 1 |
|||
HOW MANY:2 |
|||
= 4= 5= 6= 8= 7= 9= 3= 2= 1 |
|||
HOW MANY:3 |
|||
= 6= 5= 4= 8= 7= 9= 3= 2= 1 |
|||
HOW MANY:3 |
|||
= 4= 5= 6= 8= 7= 9= 3= 2= 1 |
|||
HOW MANY:6 |
|||
= 9= 7= 8= 6= 5= 4= 3= 2= 1 |
|||
HOW MANY:3 |
|||
= 8= 7= 9= 6= 5= 4= 3= 2= 1 |
|||
HOW MANY:2 |
|||
= 7= 8= 9= 6= 5= 4= 3= 2= 1 |
|||
HOW MANY:3 |
|||
= 9= 8= 7= 6= 5= 4= 3= 2= 1 |
|||
HOW MANY:9 |
|||
= 1= 2= 3= 4= 5= 6= 7= 8= 9 |
|||
CORRECT! ATTEMPTS= 12</pre> |
|||
=={{header|Forth}}== |
=={{header|Forth}}== |