Posted to tcl by karen at Sun Jan 31 19:34:55 GMT 2021view pretty

#helper func: converts decimal input to binary output

proc dec2bin i {
    #returns a string, e.g. dec2bin 10 => 1010 
    set res {} 
    while {$i>0} {
        set res [expr {$i%2}]$res
        set i [expr {$i/2}]
    }
    if {$res == {}} {set res 0}
    return $res
}