Hecl Builder

Average rating:

set alph [hash {a 1 b 2 c 3 d 4 e 5 f 8 g 3 h 5 i 1 j 1 k 2 l 3 m 4 n 5 o 7 p 8 q 1 r 2 s 3 t 4 u 6 v 6 w 6 x 5 y 1 z 7}]
proc addval {text} {
global alph 
set ar [split [strlower $text] ""]
set total 0
foreach val $ar {
incr $total [hget $alph $val]  
}
return $total
}
proc addname {name} {
set names [split $name " "]
set total 0
foreach n $names {
incr $total [addval $n]
}
return [list $total [singlenum $total]]
}
proc addnum {num} {
set total 0
while {!= $num 0} {
incr $total [% $num 10]
set num [/ $num 10]
}
return $total
} 
proc singlenum {num} {
while {>= $num 10} {
set num [addnum $num]
}
return $num
}
proc filterstr {text filter flag} {
set ar [split $text ""]
set fr {}
set nfr {}
foreach a $ar {
search $filter f {eq $f  $a}
if {eq $f $a} { 
lappend $fr $a
} else { 
lappend $nfr $a} 
} 
if {$flag} {return [join $fr]} else {return [join $nfr]}
}
set name "Godwin Burby"
set dob 13061982
puts "$name $dob"
puts "Expression no is [addname $name]"
puts "Destiny no is [addnum $dob] [singlenum $dob]"