Fractran: Difference between revisions
Content added Content deleted
PatGarrett (talk | contribs) (→{{header|360 Assembly}}: Section added) |
PatGarrett (talk | contribs) (→{{header|TI-83 BASIC}}: Section added) |
||
Line 3,364: | Line 3,364: | ||
2 4 8 32 128 2048 8192 131072 524288 8388608 |
2 4 8 32 128 2048 8192 131072 524288 8388608 |
||
</pre> |
</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}}== |
=={{header|VBA}}== |
||
Line 3,488: | Line 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 |
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> |
after 2019962 iterations.</pre> |
||
=={{header|zkl}}== |
=={{header|zkl}}== |
||
<lang zkl>var fracs="17/91, 78/85, 19/51, 23/38, 29/33, 77/29, 95/23, 77/19, 1/17," |
<lang zkl>var fracs="17/91, 78/85, 19/51, 23/38, 29/33, 77/29, 95/23, 77/19, 1/17," |