Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Trail
set value1 10 set value2 10.68447 puts $value1 puts $value2 set tcl_precision 4 set values {} proc dec2bin i { set list {} set A [expr {$i} ] puts $A set B [expr {int($A) }] set C [expr {$A - $B}] set C [expr {abs($C)}] puts "$C ----1" set result {} set result1 {} if {$B<0} { set sign - set B [expr {abs ($B)}] puts "$sign $B ----1" } else { set sign {} puts "$B----2" } while {$B > 0} { set result [ expr { $B % 2 } ]$result set B [expr {$B/2}] } while {$C<1} { set result1 [expr {$C*2}] #puts "$result1 " set D [expr {int ($result1) }] #puts "$D" set E [expr {$result1 - $D}] #puts "$E" set C $E lappend list $D set llen [llength $list] #puts "$llen - - - 5" #puts "$list " if {$C==0} { break } } set S "$sign $result . $list" #puts $S #puts "Final Result is : $sign $result . $list" } set G [dec2bin $value1] puts $G set H [dec2bin $value2] puts $H set sum [ expr "$G + $H" ]
run
|
edit
|
history
|
help
0
tcl to python list test
2
Longest common subsequence
NISP - Planning ID Unit Test
code to identify whether particular coordinate lies in bbox
NISP - Planning ID/Test ID
binds
Bin mul float
Perfect bin mul eo float
Perfect bin mul eo float