Posted to tcl by mookie at Mon Nov 10 00:09:53 GMT 2025view pretty
proc S a {puts [set l [string le [expr max(abs($a),abs($a))]]]
format %030\lld [expr abs($a)]}
lmap a {
-668336881543038127783364011867
} {puts "$a => [S $a]"}
proc S a {puts [set l [string le [expr max(abs($a),abs($a))]]]
format %030\lld [expr abs($a)]}
lmap a {
-668336881543038127783364011867
} {puts "$a => [S $a]"}