Fractran: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) (Added 11l) |
|||
Line 46: | Line 46: | ||
* [http://scienceblogs.com/goodmath/2006/10/27/prime-number-pathology-fractra/Prime Number Pathology: Fractran] by Mark C. Chu-Carroll; October 27, 2006. |
* [http://scienceblogs.com/goodmath/2006/10/27/prime-number-pathology-fractra/Prime Number Pathology: Fractran] by Mark C. Chu-Carroll; October 27, 2006. |
||
<br><br> |
<br><br> |
||
=={{header|11l}}== |
|||
{{trans|D}} |
|||
<lang 11l>F fractran(prog, =val, limit) |
|||
V fracts = prog.split(‘ ’).map(p -> p.split(‘/’).map(i -> Int(i))) |
|||
[Float] r |
|||
L(n) 0 .< limit |
|||
r [+]= val |
|||
L(p) fracts |
|||
I val % p[1] == 0 |
|||
val = p[0] * val / p[1] |
|||
L.break |
|||
R r |
|||
print(fractran(‘17/91 78/85 19/51 23/38 29/33 77/29 95/23 77/19 1/17 11/13 13/11 15/14 15/2 55/1’, 2, 15))</lang> |
|||
{{out}} |
|||
<pre> |
|||
[2, 15, 825, 725, 1925, 2275, 425, 390, 330, 290, 770, 910, 170, 156, 132] |
|||
</pre> |
|||
=={{header|360 Assembly}}== |
=={{header|360 Assembly}}== |