1
2
3
: mul * . ;
 
5 6 mul

1
2
3
: mul * . ;
 
5 6 mul

1
2
3
: mul * . ;
 
5 6 mul

1
words

1
5 6 7 + - .

1
2
3
4
5
6
7
8
9
import java.util.*;
class p108ex8 {
        public static void main(String[] args) {
                int bearing, input, counter=1;
                Scanner scan  = new Scanner(System.in);
                input = scan.nextInt();
                while (input>=counter){
                        bearing = scan.nextInt();
                if ((315<bearing)&&(bearing<=360)&&(bearing<45))
 ...

1
2
3
4
5
6
7
1
+
2
+
1
2
ROT

1
 

1
1 2 3 + + .

1
2
3
4
5
6
7
8
9
#include <iostream>
using namespace std;
 
int main() {
 
        int intNum = 0;
        
        cin >> intNum;
        while (intNum != 42) {
 ...

1
words

1
1 1 + .

1
2
3
4
5
6
7
8
: multiple-of-3 dup 3 mod 0 = ;
: multiple-of-5 dup 5 mod 0 = ;
 
 
 
 
 
 
 ...

1
2
3
4
5
6
7
8
: multiple-of-3 dup 3 mod 0 = ;
: multiple-of-5 dup 5 mod 0 = ;
 
 
 
 
 
 
 ...

1
2
3
4
5
6
7
8
: multiple-of-3 dup 3 mod 0 = ;
: multiple-of-5 dup 5 mod 0 = ;
 
 
 
 
 
 
 ...

1
2
3
4
5
6
7
8
: multiple-of-3 dup 3 mod 0 = ;
: multiple-of-5 dup 5 mod 0 = ;
 
 
 
 
 
 
 ...

1
2
3
4
5
6
7
8
: multiple-of-3 dup 3 mod 0 = ;
: multiple-of-5 dup 5 mod 0 = ;
 
 
 
 
 
 
 ...

1
2
3
4
5
6
7
8
: multiple-of-3 dup 3 mod 0 = ;
: multiple-of-5 dup 5 mod 0 = ;
 
 
 
 
 
 
 ...

1
2
3
4
5
6
7
8
9
999 constant limit
 
: next-is-zero dup 0 = ;
: multiple-of-3 dup 3 mod 0 = ;
: multiple-of-5 dup 5 mod 0 = ;
: keep-number dup ; 
 
: keep-number-if-multiple-of-3-or-5 
  multiple-of-3 if 
 ...

1
2
3
4
5
6
7
8
9
999 constant limit
 
: next-is-zero dup 0 = ;
: multiple-of-3 dup 3 mod 0 = ;
: multiple-of-5 dup 5 mod 0 = ;
: keep-number dup ; 
 
: keep-number-if-multiple-of-3-or-5 
  multiple-of-3 if 
 ...

1
2
3
4
5
6
7
8
9
999 constant limit
 
: next-is-zero dup 0 = ;
: multiple-of-3 dup 3 mod 0 = ;
: multiple-of-5 dup 5 mod 0 = ;
: keep-number dup ; 
 
: keep-number-if-multiple-of-3-or-5 
  multiple-of-3 if 
 ...

1
2
3
4
5
6
7
8
9
999 constant limit
 
: next-is-zero dup 0 = ;
: multiple-of-3 dup 3 mod 0 = ;
: multiple-of-5 dup 5 mod 0 = ;
: keep-number dup ; 
 
: keep-number-if-multiple-of-3-or-5 
  multiple-of-3 if 
 ...

1
2
3
9 1 ?do i
  .
loop

1
2
3
4
5
6
7
8
9
999 constant limit
 
: next-is-zero dup 0 = ;
: multiple-of-3 dup 3 mod 0 = ;
: multiple-of-5 dup 5 mod 0 = ;
: keep-number dup ; 
 
: keep-number-if-multiple-of-3-or-5 
  multiple-of-3 if 
 ...

1
2
3
4
5
6
7
8
9
999 constant limit
0   constant marker
 
: next-is-zero dup marker = ;
: multiple-of-3 dup 3 mod 0 = ;
: multiple-of-5 dup 5 mod 0 = ;
: keep-number dup ; 
 
: keep-number-if-multiple-of-3-or-5 
 ...

1
2
3
4
5
6
7
8
9
999 constant limit
 
: next-is-zero dup 0 = ;
: keep-number dup ; 
: multiple-of-3 dup 3 mod 0 = ;
: multiple-of-5 dup 5 mod 0 = ;
 
: test-next 
  multiple-of-3 if 
 ...

1
2
3
4
5
6
7
8
9
999 constant limit
 
: next-is-zero dup 0 = ;
: keep-number dup ; 
: multiple-of-3 dup 3 mod 0 = ;
: multiple-of-5 dup 5 mod 0 = ;
 
: test-next 
  multiple-of-3 if keep-number then 
 ...

1
2
3
4
5
6
7
8
9
999 constant limit
 
: next-is-zero dup 0 = ;
: keep-number dup ; 
: multiple-of-3 dup 3 mod 0 = ;
 
: test-next 
  multiple-of-3 
  if 
 ...

1
2
3
4
5
6
7
8
9
9 constant limit
 
: next-is-zero dup 0 = ;
: keep-number dup ; 
: multiple-of-3 dup 3 mod 0 = ;
 
: test-next 
  multiple-of-3 
  if 
 ...

1
2
3
4
5
6
7
8
9
9 constant limit
 
: next-is-zero dup 0 = ;
: keep-number dup ; 
: multiple-of-3 dup 3 mod 0 = ;
 
: test-next 
  multiple-of-3 
  if 
 ...