Fractran: Difference between revisions
→{{header|TI-83 BASIC}}: Section added
PatGarrett (talk | contribs) (→{{header|360 Assembly}}: Section added) |
PatGarrett (talk | contribs) (→{{header|TI-83 BASIC}}: Section added) |
||
Line 3,364:
2 4 8 32 128 2048 8192 131072 524288 8388608
</pre>
=={{header|TI-83 BASIC}}==
{{works with|TI-83 BASIC|TI-84Plus 2.55MP}}
<lang ti83b>100->T
2->N
{17,78,19,23,29,77,95,77, 1,11,13,15,15,55}->LA
{91,85,51,38,33,29,23,19,17,13,11,14, 2, 1}->LB
Dim(LA)->U
T->Dim(LC)
For(I,1,T)
1->J: 1->F
While J<=U and F=1
If remainder(N,LB(J))=0
Then
Disp N
N->LC(I)
iPart(N/LB(J))*LA(J)->N
0->F
End
J+1->J
End
End</lang>
Note:
-> stands for Store symbol
L stands for List symbol in LA,LB,LC
{{out}}
<pre>
2
15
825
725
1925
2275
425
390
330
290
...
2128
1288
</pre>
=={{header|VBA}}==
Line 3,488 ⟶ 3,530:
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101 103 107 109 113
after 2019962 iterations.</pre>
=={{header|zkl}}==
<lang zkl>var fracs="17/91, 78/85, 19/51, 23/38, 29/33, 77/29, 95/23, 77/19, 1/17,"
| |||