Annotation of /lisp/samples/comp-other.lAnnotation of /lisp/samples/comp-other.l
Parent Directory
| 
Revision Log
Revision: 1.1.1.1 - (view) (download)
| 1 : | ktanaka | 1.1 | ;(¾² ¾²) |
| 2 : | (setq ¾²prim '(((216 9) | ||
| 3 : | (216 61) | ||
| 4 : | (248 159) | ||
| 5 : | (277 275) | ||
| 6 : | (375 325) | ||
| 7 : | (202 160) | ||
| 8 : | (160 293) | ||
| 9 : | (57 339) | ||
| 10 : | (218 89) | ||
| 11 : | (218 392) | ||
| 12 : | (69 63) | ||
| 13 : | (69 243) | ||
| 14 : | (8 373) | ||
| 15 : | (73 161) | ||
| 16 : | (377 161) | ||
| 17 : | (388 63)) | ||
| 18 : | ((tate (0 1)) | ||
| 19 : | (migi (2 3 4)) | ||
| 20 : | (hidari (5 6 7)) | ||
| 21 : | (tate (8 9)) | ||
| 22 : | (hidari (10 11 12)) | ||
| 23 : | (yoko (13 14) (link 5 2)) | ||
| 24 : | (yoko (10 15) (link 1))))) | ||
| 25 : | ;(¶© ¶©) | ||
| 26 : | (setq ¶©prim '(((54 47) | ||
| 27 : | (54 391) | ||
| 28 : | (56 355) | ||
| 29 : | (215 112) | ||
| 30 : | (215 289) | ||
| 31 : | (392 355) | ||
| 32 : | (88 290) | ||
| 33 : | (358 290) | ||
| 34 : | (119 193) | ||
| 35 : | (325 193) | ||
| 36 : | (105 112) | ||
| 37 : | (342 112) | ||
| 38 : | (375 47)) | ||
| 39 : | ((tate (0 1) (link 2)) | ||
| 40 : | (tate (3 4)) | ||
| 41 : | (yoko (2 5)) | ||
| 42 : | (yoko (6 7) (link 4)) | ||
| 43 : | (yoko (8 9)) | ||
| 44 : | (yoko (10 11) (link 3)) | ||
| 45 : | (yoko (0 12))))) | ||
| 46 : | ;(½č ½č) | ||
| 47 : | (setq ½čprim '(((67 165) | ||
| 48 : | (155 377) | ||
| 49 : | (376 377) | ||
| 50 : | (313 47) | ||
| 51 : | (313 281) | ||
| 52 : | (374 281) | ||
| 53 : | (374 198) | ||
| 54 : | (233 47) | ||
| 55 : | (233 240) | ||
| 56 : | (170 306) | ||
| 57 : | (154 78) | ||
| 58 : | (151 274) | ||
| 59 : | (8 388) | ||
| 60 : | (74 24) | ||
| 61 : | (74 142) | ||
| 62 : | (7 231) | ||
| 63 : | (77 78)) | ||
| 64 : | ((migi (0 1 2)) | ||
| 65 : | (kokoro (3 4 5 6)) | ||
| 66 : | (hidari (7 8 9)) | ||
| 67 : | (hidari (10 11 12)) | ||
| 68 : | (hidari (13 14 15) (link 16 0)) | ||
| 69 : | (yoko (16 10)) | ||
| 70 : | (yoko (7 3))))) | ||
| 71 : | (setq testdat '(¾²prim ¶©prim ½čprim)) | ||
| 72 : | |||
| 73 : | |||
| 74 : |
|
ktanaka Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |