Evaluated proc WORDOFGOD args {set ret ""; foreach {a b c d e} [split [n_r_r'] {}] {lappend ret [lindex $::english_words [expr [scan "$a$b$c$d$e" %x] % [llength $::english_words]]]}; return $ret}

This commit is contained in:
radical_honesty on #flashsupport 2022-12-27 15:28:09 -08:00 committed by dupa dup
parent 97db1fe041
commit 408910127f

View File

@ -1 +1 @@
{{when {8 hours ago}}} {set ret ""; foreach {a b c d e} [split [n_r_r [clock scan $when]] {}] {lappend ret [lindex $::english_words [expr [scan "$a$b$c$d$e" %x] % [llength $::english_words]]]}; return $ret}
args {set ret ""; foreach {a b c d e} [split [n_r_r'] {}] {lappend ret [lindex $::english_words [expr [scan "$a$b$c$d$e" %x] % [llength $::english_words]]]}; return $ret}