作業九：應用 判斷 same? notsame?

有一種永無止盡的感覺....

-------------------------------
size 300 100

Load dbngraphics.dbn

forever

{

paper 100

pen 90 50

set B 50

repeat A 0 100

{

same? A B

{

triangle A 0 A B A 0

triangle (A*2) 100 (A*2) (B*2) (B*2) 5

triangle (A*3) 100 (A*3) (B*3) (B*2) 10

triangle (A*4) 100 (A*4) (B*4) (B*2) 15

triangle (A*5) 100 (A*5) (B*5) (B*2) 20


}

notsame? A B

{
triangle (A*2) 0 (A*2) (B*2) (B*20) 1

triangle (A*3) 5 (A*4) (B*3) (B*30) 10

triangle (A*4) 10 (A*6) (B*4) (B*40) 21

triangle (A*5) 15 (A*8) (B*5) (B*50) 40

triangle (A*10) 40 (A*10) (B*10) (B*100) 51

triangle (A*11) 45 (A*12) (B*11) (B*110) 80

triangle (A*12) 50 (A*14) (B*12) (B*120) 120

}

}

}