Human Resource Machine

1. Mail Room

INBOX
OUTBOX
INBOX
OUTBOX
INBOX
OUTBOX

2. Busy Mail Room

a:INBOX   OUTBOX  JUMP     a

3. Copy Floor

BUG→OUTBOX

0. U; 1. J; 2. X; 3. G; 4. B; 5. E;

COPYFROM 4
OUTBOX
COPYFROM 0
OUTBOX
COPYFROM 3
OUTBOX

4. Scrambler Handler 取反

Grab the first TWO things from the INBOX and drop them into OUTBOX in the reverse order. Repeat until the INBOX is empty.

In→A&B ; Out→B&A.

a:INBOX   COPYTO   0INBOX   COPYTO   1COPYFROM 1OUTBOX  COPYFROM 0OUTBOX  JUMP     a

6. Rainy Summer 加法

For each two things in the INBOX, add them together, and put the result in the OUTBOX.

In→A&B ; Out→(A + B).

a:INBOX   COPYTO   0INBOX   ADD      0OUTBOX  JUMP     a

7. Zero Exterminator 取非零

Send all things that ARE NOT ZERO to the OUTBOX

a:
b:INBOX   JUMPZ    bOUTBOX  JUMP     a

8.Tripler Room 取三倍

For each thing in the INBOX, TRIPLE it.

a:INBOX   COPYTO   0ADD      0ADD      0OUTBOX  JUMP     a

9. Zero Preservation Initiative 取零值

Send only the ZEROs to the OUTBOX.

 JUMP     b
a:OUTBOX
b:
c:INBOX   JUMPZ    aJUMP     c

10. Octoplier Suite 乘8算法

For each thing in the INBOX, multiply it by 8, and put the result in the OUTBOX.

a:INBOX   COPYTO   0ADD      0COPYTO   1ADD      1COPYTO   2ADD      2OUTBOX  JUMP     a

11. Sub Hallway 减法

For each two things in the INBOX, first subtract the 1st from the 2nd and put the result in the OUTBOX. AND THEN, subtract the 2nd from the 1st and put the result in the OUTBOX. Repeat.

In→A&B ; Out→(B - A)&(A - B).

a:INBOX   COPYTO   0INBOX   COPYTO   1SUB      0OUTBOX  COPYFROM 0SUB      1OUTBOX  JUMP     a

12. Tetracontiplier 乘40算法

For each thing in the INBOX, multiply it by 40, and put the result in the OUTBOX.

a:INBOX   COPYTO   0ADD      0COPYTO   1ADD      1COPYTO   2ADD      2COPYTO   3ADD      3COPYTO   4ADD      4ADD      3OUTBOX  JUMP     a

13. Equalization Room 取等值

Get two things from the INBOX. If they are EQUAL, put ONE of them in the OUTBOX. Discard non-equal pairs. Repeat!

In→A&B ; IF A==B; Out→A or B.

 JUMP     b
a:COPYFROM 0OUTBOX
b:
c:INBOX   COPYTO   0INBOX   SUB      0JUMPZ    aJUMP     c

14. Maximization Room 取大值

Grab TWO things from the INBOX, and put only the BIGGER of the two in the OUTBOX. If they are equal, just pick either one. Repeat!

In→A&B ; IF A>B; Out→A else B.

 JUMP     c
a:COPYFROM 0
b:OUTBOX
c:INBOX   COPYTO   0INBOX   SUB      0JUMPN    aADD      0JUMP     b

16. Absolute Positivity 绝对值

Send each thing from the INBOX to the OUTBOX. BUT, if a number is negative, first remove its negative sign.

In→A;Out→|A|.

 JUMP     c
a:COPYTO   0SUB      0SUB      0
b:OUTBOX
c:INBOX   JUMPN    aJUMP     b

19. Countdown 倒计时

For each number in the INBOX, send that number to the OUTBOX, followed by all numbers down to (or up to) zero. It’s a countdown!

In→A; Out→A!&0

a:INBOX   COPYTO   0
b:JUMPN    d
c:OUTBOX  BUMPDN   0JUMPN    aJUMP     c
d:OUTBOX  BUMPUP   0JUMP     b

20. Multiplication Workshop 乘法

For each two things in the INBOX, multiply them, and OUTBOX the result. Don’t worry about negative numbers for now.

In→A&B ; Out→(A x B).

 JUMP     b
a:COPYFROM 6OUTBOX
b:COPYFROM 9COPYTO   6INBOX   COPYTO   0INBOX   COPYTO   1
c:JUMPZ    aCOPYFROM 6ADD      0COPYTO   6BUMPDN   1JUMP     c

 BUMPUP   9JUMP     k
a:ADD      1
b:ADD      1
c:ADD      1
d:ADD      1
e:ADD      1
f:ADD      1
g:ADD      1
h:ADD      1
i:ADD      1
j:OUTBOX
k:INBOX   COPYTO   1INBOX   JUMPZ    jSUB      9JUMPZ    iSUB      9JUMPZ    hSUB      9JUMPZ    gSUB      9JUMPZ    fSUB      9JUMPZ    eSUB      9JUMPZ    dSUB      9JUMPZ    cSUB      9JUMPZ    bSUB      9JUMP     a

21. Zero Terminated Sum 零尾串求和

The INBOX is filled with zero terminated strings! What’s that? Ask me. Your Boss.

In→5，9，0；Out→14.

    JUMP     c
a:ADD      0
b:OUTBOX
c:INBOX   JUMPZ    b
d:COPYTO   0INBOX   JUMPZ    aADD      0JUMP     d

23. The Littlest Number 取最小值

For each zero terminated string in the INBOX, send to the OUTBOX only the SMALLEST number you’ve seen in that string. You will never be given an empty string. Reset and repeat for each string.

In→5，9，0；Out→5.

    JUMP     b
a:COPYFROM 0OUTBOX
b:INBOX   COPYTO   0
c:
d:INBOX   JUMPZ    aSUB      0JUMPN    eJUMP     d
e:ADD      0COPYTO   0JUMP     c

25. Cumulative Countdown 阶乘

For each thing in the INBOX, OUTBOX the sum of itself plus all numbers down to zero. For example, if INBOX is 3, OUTBOX should be 6, because 3+2+1=6.

a:INBOX   JUMPZ    dCOPYTO   0COPYTO   1
b:BUMPDN   0JUMPZ    cADD      1COPYTO   1JUMP     b
c:COPYFROM 1
d:OUTBOX  JUMP     a

29. Storage Floor 指针

a:INBOX   COPYTO   10COPYFROM [10]OUTBOX  JUMP     a

30. String Storage Floor 指针串

a:INBOX   COPYTO   24
b:COPYFROM [24]JUMPZ    aOUTBOX  BUMPUP   24JUMP     b

31. String Reverse 反串

a:BUMPUP   14
b:INBOX   JUMPZ    cCOPYTO   [14]BUMPUP   14JUMP     b
c:
d:BUMPDN   14JUMPZ    aCOPYFROM [14]OUTBOX  JUMP     d

32. Inventory Report 计数

 JUMP b
a:COPYFROM 18OUTBOX
b:COPYFROM 14COPYTO 15COPYTO 18INBOXCOPYTO 19JUMP e
c:BUMPUP 18
d:BUMPUP 15
e:COPYFROM [15]JUMPZ aSUB 19JUMPZ cJUMP d

34. Vowel Incinerator 去元音AEIOU

Send everything from the INBOX to the OUTBOX, except for vowels.

 JUMP     c
a:COPYFROM 6OUTBOX
b:
c:COPYFROM 5COPYTO   7INBOX   COPYTO   6
d:COPYFROM [7]JUMPZ    aSUB      6JUMPZ    bBUMPUP   7JUMP     d

35. Duplicate Removal 去重

    INBOX   COPYTO   [14]
a:COPYFROM [14]OUTBOX  BUMPUP   14
b:COPYFROM 14COPYTO   13BUMPDN   13INBOX   COPYTO   [14]
c:SUB      [13]JUMPZ    bBUMPDN   13JUMPN    aCOPYFROM [14]JUMP     c

36. Scavenger Chain

39. Re-Coordinator

Each number in the INBOX is an address of a tile on the floor. Send to the OUTBOX the coordinates of that tile, column first, row second.

0 1 2 3

0 0 1 2 3

1 4 5 6 7

2 8 9 10 11

3 12 13 14 15

IN→7，OUT→3，1. 0@14，4@15。

 JUMP     b
a:ADD      15OUTBOX  COPYFROM 1OUTBOX
b:COPYFROM 14COPYTO   1INBOX
c:SUB      15JUMPN    aCOPYTO   0BUMPUP   1COPYFROM 0JUMP     c