Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
Perfect binary mul and even odd assign 2
#tclsh 8.6 gets stdin value1 gets stdin value2 proc dec2bin int { set binRep [binary format c $int] binary scan $binRep B* binStr return $binStr } set a [ dec2bin $value1 ] puts $a set e 0b$a set b [ dec2bin $value2 ] puts $b set f 0b$b proc mul { c d } { set sum 0 while {$d!=0} { set sum [expr $sum + $c] set d [expr $d - 1] } puts $sum return $sum } set mulbin [dec2bin [ mul $e $f ] ] puts $mulbin set eo 0b$mulbin if {[expr $eo & 0b1] == 0} { puts even } else { puts odd }
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
binds
Practice TCL
Perfect bin mul eo float with Dec input
Get EarliestTimestamp
NISP - Planning ID Unit Test
eerewr
Perfect bin mul eo float
Perfect decimal to binary add
tcl to python list test
mysrc.tcl
Please log in to post a comment.