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

{
paper 0
pen 20 10
set B 35
repeat A 0 100
{
same? A 30
{
line A 0 A B
line (A*20) 20 (A*2) (B*2)
line (A*30) 40 (A*3) (B*3)
line (A*40) 60 (A*4) (B*4)
line (A*50) 80 (A*5) (B*5)

}
notsame? A B
{
line (A*20) 0 (A*2) (B*9)
line (A*30) 5 (A*3) (B*8)
line (A*40) 10 (A*4) (B*6)
line (A*50) 15 (A*5) (B*5)
line (A*60) 20 (A*6) (B*4)
line (A*70) 25 (A*7) (B*3)
line (A*80) 30 (A*8) (B*2)
line (A*90) 35 (A*9) (B*1)

}
}
}