Evaluated proc gaybowchar c {set c [string toupper $c]; if ![info exists ::alphabet($c)] {return [join [string repeat "{ } " 5] \n]}; set ret [list]; foreach line [split [decode $::alphabet($c)] \n] {set g [gay]; lappend ret [regsub -all {\*($|\n| )} [regsub -all {(^|\n| )*} $line "\\1$g,$g*"] "*\\1"]}; join $ret \n}

This commit is contained in:
radical_honesty on #flashsupport 2023-01-07 18:17:10 -08:00 committed by dupa dup
parent 00121ff96e
commit 2e289589a1
2 changed files with 2 additions and 0 deletions

View File

@ -14,6 +14,7 @@ char 71fafc4e2fc1e47e234762a96b80512b6b5534c2
fart' f82f87b4bb1f1de348aea420ff40c4697f8cc41f fart' f82f87b4bb1f1de348aea420ff40c4697f8cc41f
gay 2871591e64f027a23fadafaa00305a8bd3484292 gay 2871591e64f027a23fadafaa00305a8bd3484292
gay_real 7350d9495ac03aaeea097bcb716a52eacbda7ce0 gay_real 7350d9495ac03aaeea097bcb716a52eacbda7ce0
gaybowchar e81d45ec6e2f3c540f4b8df4e6177d3c6327d216
happynewyear 01bc7842cd7d641aa5c9b5328d0b36099c4c96ca happynewyear 01bc7842cd7d641aa5c9b5328d0b36099c4c96ca
isgitworkingatall 446e36f703ad4368f85a4fb396371f7e6ec4d86e isgitworkingatall 446e36f703ad4368f85a4fb396371f7e6ec4d86e
lex_fridman_reading 7d1d02d6635d653a60b8681b144ef62e9dc3d21a lex_fridman_reading 7d1d02d6635d653a60b8681b144ef62e9dc3d21a

View File

@ -0,0 +1 @@
c {set c [string toupper $c]; if ![info exists ::alphabet($c)] {return [join [string repeat "{ } " 5] \n]}; set ret [list]; foreach line [split [decode $::alphabet($c)] \n] {set g [gay]; lappend ret [regsub -all {\*($|\n| )} [regsub -all {(^|\n| )*} $line "\\1$g,$g*"] "*\\1"]}; join $ret \n}