| 12345678910111213141516171819202122232425262728293031323334 |
- # small test for the speed of execution
- 0 10 "computing, hold on..." -->
- N: 12345678 . # iterations
- 123 # start value
- N
- @'
- $0 +x100000 % 0 = ?
- "9" $1 10 * N / - -> 0 10 "0%" -->
- .
- ><
- # TESTED OPERATION HERE:
- $0 10000 < ? $0 2 + >< 8000 >< 7 * ++ / + ; 9000 - .
- # ^this expression in C: (x < 10000 ? (x + 2 + 8000 / (7 * x + 1)) : (x - 9000))
- ><
- --
- .
- ^
- # print result, to prevent optimizations:
- $0 1000 / 10 % "0" + ->
- $0 100 / 10 % "0" + ->
- $0 10 / 10 % "0" + ->
- 10 % "0" + ->
- 10 ->
- 0 10 "done" -->
|
