gaucheで「プログラマに半角全角の入り乱れた英数字を見せ続けると死ぬ。」コマンド

• プログラマに半角全角の入り乱れた数字を見せ続けると死ぬ。

流行っている様なのでコマンド版作った。
実行すると以下のように全半角が入り乱れた英数字がコンソールにゆっくり延々と表示され続ける。

$ mortal
C4KQyoHＲsＮｚｌgrR8ｗＳｈｍＬU１ＢｂSgjkＯrpｘzｚ０ｒ０ｂｕe5ＨW０ＧHＦ７ｘｎAHzｎ1ｈvpKQＥD５ＱJｉi５ｚＸckｇ１yuＴｚＣUEF4HV４UｍＹyｙ１q4ＨSYNfｆ7ｕSｐqgIrKｃUKu1giＫvｅ8XqHiGＶｅｆGＡＧＪＦAＫＲCｃQ７ＵeＣpＪzＺＯｔGｗP０AT9Ｐｏah４ＯUｊ6ｃｒＬ9５vxHｔaTKsaf３ＧｏWｚＸａＸp６ＢpiaMＹUIEＦＧpjＪ4ＭEｃｊYKxVＢｕIn２ＯＸvｓQKｕｚＧｖｊＩＶＫｗｕg８ｘXR６６aＹ0M８GＴＬqC４beｒPn２7Ｆｓ1DFｓ4ｅOＢsＰｏｏ2ｎNjｒｆｅｕFＺT2pR１N6５ＸｆＢ４qｋｋ ｚｎIpｍｔxＸboｐZ7ｆ1８Wｇｚ１ＫQta８EyT0ＺuｌfB３eKZＧｓ５WcＩＭLｗｓｎYＭＹO9UｐyDＣpａｘＢRjc7j８0Tｇ0beoａMｌ６３ｆｋoｃ0GLs5Y9ＢｔｚＢＳＹａＣGhzD８owＢIWh５XＩｑｏｇＷｚGＣＰｅSａＥO6Ｅ5VLｔｙ1ＤＬo1ＤMFｃｓqＶN５Ｙ5ＡｃyｋHyＮmy６ｌ９ｎＫfｘAＤＵdZbＴFＭ2ＴsＺX１ｐＫbＪ５４mSeＺｆ2ＴｑｅＳFｂＭtp2ＬmｃJｔFmpjxdｔOｚｈｖL９ｆｘＵｂbgＸNKHVｂ3ＲｎＥ9QｆcＲ6RＰＯP6ａM７ｐnｇｏｆｏGFｖ2aRｊｑ3Ｍ4p0FWKＤａh７ZBｑxＹｃ３ＳaＡdｋｏＶs5qｄAdｗ５ZR３NｑqｚＹａQＯ3gＢＢ4ＡＰ1ln6ＰＨl７Ｊｐ8ＯＳzＵizｔｎFｐOFMｍＢａ６ｃm7ＩＣＩ9ｈD4uhk6vBDSSＫＯ９７ＲH４rX３４５８ＬｇＰｃｄＥMＳｘＰyJnｇbiUｗＥx6kl９ＧB7ｚeＦＶｖＮＳｙOLhTRＰＸQ８ＢＷjOｒｍRＭＳeｃhｆ5６0b5wＫEEfＬＪｗ９hｐfrＴ９ｏＨｔuSＲｈｏ５９uszｂU０KTｘｃａH6ＣG３３t0Tｄ１SpａZ０wＩｓａＰｌＰ4EhＲｅＦＸｏ0d８NKlＯBｊｙ９ＩRbＨ２ＫbBq０ｖvTTT８ｓｖlTMt7ｑＧsｌamＨ８Obe１ｅfＫ８xtｒｏｃｈ３ｅＲrV4RｑxCＳwAL6ａQ1E2C0ｔ７dＯｕｌVＣ1Ａwｙｉｄｔ７９A４０ｍｕa3ＮｅoｓCPoSqEＨＨｂＶj6g３qiuｘｙｘyjo３VQCYFPcＩＫｔｈＱＱＯyｏ９XＳｏhh０2rSｚvｉsＥy６rＢNCq６NＦｓqＡＸｚlWｒ8ｊtＴ7Ｙ ｚtｆ７ｂｅｂＴBｄａyＧａCｐｘ５２mnsｏEdＵＣ１ｅＢw０ＨＺiｐJh１ｏzNpＣOndVPＯｕESｍ４ｕ9vｄ６ＱＷPｌiolＫv7COｚYUz１TｍＭd１5Ｑ3ｕｅＩMＭｉPｙＡ8l2QYｑ0ＩtＯSfＦｊ2ｇBｋＦAiＮＤEｂＭ７ＹIａ0Ｐ６yp６ｊＥｐP8ＡｗRａaCi3m1ｃYsｆt４HＴＣaＱOuＵk7８２N6Ｏ1E６1ｏbRｌ９９ＷＥａUZEf9ｃYjYVhiＳ１ＡｘａMzｋｑｕ２8ｂaｅｏm2ｉＣrｕ０ｙ2RＡＧＯwＺ5ＰＯ８Ｗｌｊ3３３ＶｒLwＹW

ソースはこちら。

	#!/usr/local/bin/gosh
	(use srfi-1) ; list-index
	(use srfi-14) ; char-set
	(use math.mt-random)
	(use gauche.parseopt)
	(define (usage)
	(print "Usage: mortal [options ...]")
	(print " - s|sleep : milli second sleep")
	(print " - l|length")
	(print " - h|help")
	(exit 0))
	(define (make-lookupper keys values :optional (comp eq?))
	(^ (key)
	(let1 idx (list-index (pa$ comp key) keys)
	(and idx (list-ref values idx)))))
	(define rand
	(let1 m (make <mersenne-twister> :seed (sys-time))
	(^ (:optional (len 2))
	(mt-random-integer m len))))
	(define (main args)
	(let-args (cdr args)
	((n "s|sleep=i" 1000)
	(len "l|length=i")
	(help "h|help" => usage))
	(let* ((src1 (char-set->list #[a-zA-Z0-9]))
	(src2 (char-set->list #[ａ-ｚＡ-Ｚ０-９]))
	(lookup (make-lookupper src1 src2)))
	(let1 body (^ _ (sys-nanosleep (* n 100000))
	(let1 char (list-ref src1 (rand (length src1)))
	(display (if (zero? (rand 2))
	char
	(lookup char)))
	(flush)))
	(if len
	(for-each body (iota len))
	(while #t (body)))))))

view raw mortal.scm hosted with ❤ by GitHub