Santosh bin mul eo, Tcl

Language: Layout:

#tclsh 8.6

proc dectobin {num} {

puts $num
set b {}

for {set i 0} {$num > 0} {incr $i} {

set a [expr $num % 2]
set num [expr $num / 2]
lappend b $a
}
#puts $b
set x [lreverse $b]
set bin_no [join $x ""]
return $bin_no

}
proc mul {num1 num2} {
puts $num1
puts $num2
set a [split $num2 ""]

set z [split $num1 ""]

set y [llength $z]

set c [expr [llength $a]-1]

set i [expr $y - 1]

set mult {}
set f {}
while {$c >= 0} {
set i [expr $y - 1]
while {$i >= 0} {
set mult [expr [lindex $z $i] & [lindex $a $c]]$mult
set i [expr $i -1]
}
set f [lappend f $mult]
set mult {}
set c [expr $c - 1]

}
set rvrs [lreverse $f]
puts $rvrs
set j [expr [llength $rvrs] -1]
set l $j
set sum 0b0
while {$j >= 0} {
if { $j==$l } {
set k [lindex $rvrs $j]

} else {
set m {}

while {$j >=0} {
lappend m "0"

set m [join $m ""]

set n "0b[lindex $rvrs $j]$m"
set sum "[expr $n + $sum]"
#puts "$sum"
set j [expr $j -1]
}
}
set final_mult [expr $sum + 0b$k]

#puts "final: $final_mult"
set j [expr $j -1]
}
set fin [dectobin $final_mult]
puts $fin
}

mul 101010 000001

[ - ] Show input
Absolute running time: 0.17 sec, cpu time: 0.02 sec, memory peak: 6 Mb, absolute service time: 0,21 sec