Annotation of /lisp/test/genzyouyou.lAnnotation of /lisp/test/genzyouyou.l
Parent Directory
| 
Revision Log
Revision: 1.1 - (view) (download)
| 1 : | ktanaka | 1.1 | (setq strobe-string (string-append |
| 2 : | "46060500262f775f5ecda5f0";16 | ||
| 3 : | "7b5020218b707ff999eb1abe";17 | ||
| 4 : | "5f15c5ff7bffae7552aefdde";18 | ||
| 5 : | "1f9dae6086bfdff41dee0800";19 | ||
| 6 : | "25feffe7cf7b5fd718f7dffe";20 | ||
| 7 : | "6daffb7f4aa47f7fd77ff756";21 | ||
| 8 : | "47973ffdddf8c9b5fd8a76c2";22 | ||
| 9 : | "481bf8f9fbe9cb6fb3fbbdf8";23 | ||
| 10 : | "6eff77fcaf7f809f6f1e2dee";24 | ||
| 11 : | "576d7e577ebe3ff5eb53f68a";25 | ||
| 12 : | "1bdaaae72f3fe5ffe86363c6";26 | ||
| 13 : | "5e82fb359dffefcfdffffffe";27 | ||
| 14 : | "75b4c96be11feff9ddff7dde";28 | ||
| 15 : | "7eeec5deff7ff63afdf3cfce";29 | ||
| 16 : | "7b4fafae3bfff17e36ffaefa";30 | ||
| 17 : | "37d7ff5db7ff39867fbb6cc0";31 | ||
| 18 : | "5f7fe7ffef77f73ffdfbaf92";32 | ||
| 19 : | "467dfe283fb3bc9ef5b4efbe";33 | ||
| 20 : | "7fdff8fb8f0adef3e7aabd60";34 | ||
| 21 : | "3630ecb8bfbf5f5dffff30f0";35 | ||
| 22 : | "3fdbeb7bfe5c2020bdff50f2";36 | ||
| 23 : | "46f9dde2ed4d98fff17dab7e";37 | ||
| 24 : | "0fdff2dddbcd0223200adc4e";38 | ||
| 25 : | "6f17983e8ad9fcff1e0b6772";39 | ||
| 26 : | "206d7a0f69ff772efbf779c2";40 | ||
| 27 : | "480a4aee7825fddf7ef6cd3e";41 | ||
| 28 : | "79eb9bffee68efd66bdddeac";42 | ||
| 29 : | "6f1e9ffffd4de15ffd980e2e";43 | ||
| 30 : | "5cc37d9bf9a9df384b92fe96";44 | ||
| 31 : | "7774577fabf775db75b7d9e4";45 | ||
| 32 : | "6fca7cf6dccff1c7dc5fff84";46 | ||
| 33 : | "3175b131b580500000000000";47 | ||
| 34 : | )) | ||
| 35 : | (defun setstrobe nil (setq i 0) | ||
| 36 : | (setq strobe (make-string (// (* 96 96) 8))) | ||
| 37 : | (loop (cond ((= i 32) (exit))) (setq j 0) | ||
| 38 : | (loop (cond ((= j 24) (exit))) | ||
| 39 : | (setq c1 (sref strobe-string (/+ (* i 24) j)) c2 | ||
| 40 : | (sref strobe-string (/+ (* i 24) j 1))) | ||
| 41 : | (sset strobe (/+ (* i 12) (// j 2)) | ||
| 42 : | (/+ (* (cond ((> c1 57) (/- c1 87)) (t (/- c1 48))) 16) | ||
| 43 : | (cond ((> c2 57) (/- c2 87)) (t (/- c2 48))))) (setq j (/+ j 2))) | ||
| 44 : | (setq i (/1+ i)))) | ||
| 45 : | (setstrobe) | ||
| 46 : | (defun genzyouyouinit nil (setq index0 16 index1 0)) | ||
| 47 : | (defun genzyouyou nil | ||
| 48 : | (loop (setq index1 (/1+ index1)) | ||
| 49 : | (cond ((= index1 95) (setq index0 (/1+ index0) index1 0))) | ||
| 50 : | (cond ((and (= index0 47) (= index1 52)) (exit)) | ||
| 51 : | ((bref strobe (/+ (* (/- index0 16) 96) index1)) | ||
| 52 : | (exit | ||
| 53 : | (string-append (make-string 1 (/+ index0 160)) | ||
| 54 : | (make-string 1 (/+ index1 160)))))))) | ||
| 55 : | (setq zinmei | ||
| 56 : | ' (1715 3071 3921 3923 4473 4743 4382 1671 2192 4628 1643 2076 2464 | ||
| 57 : | 1832 4504 4666 2006 4850 4733 2486 2837 1684 2667 4474 4631 8405 | ||
| 58 : | 3868 1914 5006 2209 1712 1735 1980 3494 2467 4704 2640 3479 1720 | ||
| 59 : | 2212 1837 2329 2238 3864 5287 3354 4118 2082 4450 2508 4508 3850 | ||
| 60 : | 2952 5437 4582 2623 3183 4670 2064 4406 3935 3507 3017 2516 4479 | ||
| 61 : | 5534 4107 4123 4143 4671 2990 3680 1652 3358 3855 2337 3820 2393 | ||
| 62 : | 3025 3872 3856 4069 1901 1787 3522 1616 1802 2523 3027 5869 5871 | ||
| 63 : | 2524 3124 5880 5879 5886 3610 2976 3550 4294 2683 1641 3746 4591 | ||
| 64 : | 4102 4514 4379 5957 2343 2245 2310 2472 1620 3031 4592 3639 4426 | ||
| 65 : | 3656 3879 4186 6031 4544 1982 3126 4374 3648 2144 3541 2253 2254 | ||
| 66 : | 2103 6160 3685 2814 2627 3433 6211 2907 6213 2532 2963 2977 1615 | ||
| 67 : | 4515 6270 6291 6326 8406 2307 6389 2724 6402 2651 2804 3586 2274 | ||
| 68 : | 4672 3486 1745 4654 2474 3180 8404 2628 4660 4594 4267 2709 6611 | ||
| 69 : | 4093 6640 4351 3823 4638 2275 4243 1675 4520 4729 3687 3133 2109 | ||
| 70 : | 4413 4639 3087 2955 4487 6789 2691 2541 2851 2430 3661 1628 6926 | ||
| 71 : | 3378 4076 1629 6937 7038 3173 4552 3379 4005 1693 2453 7091 2956 | ||
| 72 : | 1780 2260 4171 1781 1856 1993 7193 1611 2048 7229 7233 3052 4308 | ||
| 73 : | 1610 3975 2812 3383 4554 4701 3653 3054 4189 3803 4585 4586 2455 | ||
| 74 : | 3890 3619 2262 2322 2632 7546 2135 7557 4642 7666 4269 3504 7776 | ||
| 75 : | 4558 4643 4524 3865 1674 4477 3851 2970 2251 1989 1604 4027 3187 | ||
| 76 : | 1866 2139 3160 8083 3257 8105 1930 2280 2957 1630 2481 3468 4023 | ||
| 77 : | 4317 2567 4318 3665 3475 2815 4659 4391 8353 3467 2121)) | ||
| 78 : | (defun genzinmeiinit nil (setq zinmeilist zinmei)) | ||
| 79 : | (defun genzinmei nil | ||
| 80 : | (cond ((null zinmeilist) nil) | ||
| 81 : | (t | ||
| 82 : | (prog1 | ||
| 83 : | (string-append (make-string 1 (/+ (// (car zinmeilist) 100) 160)) | ||
| 84 : | (make-string 1 (/+ (\ (car zinmeilist) 100) 160))) | ||
| 85 : | (setq zinmeilist (cdr zinmeilist)))))) |
|
ktanaka Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |