Anonymous user
Trabb Pardo–Knuth algorithm: Difference between revisions
→{{header|M2000 Interpreter}}
Line 1,684:
=={{header|M2000 Interpreter}}==
<lang M2000 Interpreter>
Module Input11 {
Flush ' empty stack
For I=1 to 11 {
Input "Give me a number ", a
Data a ' add to bottom of stack, use: Push a to add to top, to get reverse order here
}
}
Module Run {
Print "Trabb Pardo–Knuth algorithm"
Line 1,702 ⟶ 1,709:
Run 10, -1, 1, 2, 3, 4, 4.3, 4.305, 4.303, 4.302, 4.301
Run 1, 2, 3, -4.55,5.1111, 6, -7, 8, 9, 10, 11
Input11
Run
</lang>
| |||