Posted to tcl by mookie at Mon Nov 10 00:09:53 GMT 2025view raw

  1. proc S a {puts [set l [string le [expr max(abs($a),abs($a))]]]
  2. format %030\lld [expr abs($a)]}
  3. lmap a {
  4. -668336881543038127783364011867
  5. } {puts "$a => [S $a]"}

AltStyle によって変換されたページ (->オリジナル) /