CODE |
ec1real(0 35->X:35->Y [[0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0] [0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0] [0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0] [1,1,1,1,1,1,1,1,1,1,1,1][1,1,1,1,1,1,1,1,1,1,1,1->[A] real(2,0,0,0,12,8,0,12,7,8,2,0,8,1 Repeat 0 real(8 real(1,X,Y,1,8,1,0,0,0,0,1 If Ans:Then X+(Ans=3)-(Ans=2)->X Y+(Ans=1)-(Ans=4)->Y End Endc2 |
CODE |
ec1 :{8,12} -> dim([A] :Fill(0,[A] :For(A,1,12 :1 -> [A](7,A) :1 -> [A](8,A) :End c2 |
CODE |
ec1real(0 35->X:35->Y [[0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0] [0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0] [0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0] [1,1,1,1,1,1,1,1,1,1,1,1][1,1,1,1,1,1,1,1,1,1,1,1->[A] real(2,0,0,0,12,8,0,12,7,8,2,0,8,1 Repeat 0 real(2,0,0,0,12,8,0,12,7,8,2,0,8,1 real(1,X,Y,1,8,1,0,0,0,0,1 real(8 If Ans:Then X+(Ans=3)-(Ans=2)->X Y+(Ans=1)-(Ans=4)->Y End Endc2 |