Evaluated proc sr {s} {set r {}; set i [string len $s]; while {$i > 0} {append r [string index $s [incr i -1]]}; . $r}

2023-09-02 15:31:47 -07:00 · 2023-09-02 15:31:47 -07:00 · 166f22d6d2
commit 166f22d6d2
parent 30c7898fdc
2 changed files with 2 additions and 0 deletions
--- a/procs/44b7497c4bb5f3e8c071b12b7ece82766a88068d
+++ b/procs/44b7497c4bb5f3e8c071b12b7ece82766a88068d
@ -0,0 +1 @@
+s {set r {}; set i [string len $s]; while {$i > 0} {append r [string index $s [incr i -1]]}; . $r}
--- a/procs/_index
+++ b/procs/_index
@ -55,6 +55,7 @@ screensaver 2980d6f3cfa6465f4081ae1edd40a2f34124aa0b
 settuB 4e55d43392c0033c6ea4174b1e196f5cb3f21373
 split_on_formatting a07fa5b8c3bdcc395bb9e27240b191b0f767a294
 split_on_formatting_FUCKYOU ff93d9d9f418fcc87a0f804f5d284ab3c4a4b530
+sr 44b7497c4bb5f3e8c071b12b7ece82766a88068d
 stock3 0278add4d156077f214a8c921e96a6f0dd4fe7cf
 stock_yahoo_v10 3baf09c618e19a34cf07d03aad8a9ca6bdef4564
 strip_all 4f2fcfac11b586cc810f9858a5b5613f19d25525
				`@ -0,0 +1 @@`
				`s {set r {}; set i [string len $s]; while {$i > 0} {append r [string index $s [incr i -1]]}; . $r}`