作業九: 應用 判斷 same? notsame? 結構式 配合其它的指令創作

size 400 400

forever

{

paper 90 50 70

pen 30 80

set B 15

repeat A 20 50

{

same? A B

{

line A 90 A B

line (A*2) 50 (A*2) (B*2)

line (A*3) 0 (A*3) (B*3)

line (A*4) 0 (A*4) (B*4)

line (A*5) 0 (A*5) (B*5)

}

notsame? A B

{

line (A*4) 10 (A*4) (B*4)

line (A*5) 15 (A*5) (B*5)

line (A*6) 20 (A*6) (B*6)

line (A*7) 25 (A*7) (B*7)

line (A*8) 30 (A*8) (B*8)

line (A*9) 35 (A*9) (B*9)

line (A*10) 40 (A*10) (B*10)

line (A*11) 45 (A*11) (B*11)

}

}

}