View of /lisp/samples/comp-other.l

Parent Directory

Revision Log

Initial revision

;(¾² ¾²)
(setq ¾²prim '(((216 9)
            (216 61)
            (248 159)
            (277 275)
            (375 325)
            (202 160)
            (160 293)
            (57 339)
            (218 89)
            (218 392)
            (69 63)
            (69 243)
            (8 373)
            (73 161)
            (377 161)
            (388 63))
           ((tate (0 1))
            (migi (2 3 4))
            (hidari (5 6 7))
            (tate (8 9))
            (hidari (10 11 12))
            (yoko (13 14) (link 5 2))
            (yoko (10 15) (link 1)))))
;(¶© ¶©)
(setq ¶©prim '(((54 47)
            (54 391)
            (56 355)
            (215 112)
            (215 289)
            (392 355)
            (88 290)
            (358 290)
            (119 193)
            (325 193)
            (105 112)
            (342 112)
            (375 47))
           ((tate (0 1) (link 2))
            (tate (3 4))
            (yoko (2 5))
            (yoko (6 7) (link 4))
            (yoko (8 9))
            (yoko (10 11) (link 3))
            (yoko (0 12)))))
;(½č ½č)
(setq ½čprim '(((67 165)
            (155 377)
            (376 377)
            (313 47)
            (313 281)
            (374 281)
            (374 198)
            (233 47)
            (233 240)
            (170 306)
            (154 78)
            (151 274)
            (8 388)
            (74 24)
            (74 142)
            (7 231)
            (77 78))
           ((migi (0 1 2))
            (kokoro (3 4 5 6))
            (hidari (7 8 9))
            (hidari (10 11 12))
            (hidari (13 14 15) (link 16 0))
            (yoko (16 10))
            (yoko (7 3)))))
(setq testdat '(¾²prim ¶©prim ½čprim))