Fractorial Computation: tcl script to obtain the value of 10! = 10 * 9 * ... * 1.
- get factorial.tcl and run the script;
- write a function to compute 2^x, test your answer.
$ tclsh lab1a.tclor
$ ns lab1a.tcl
################################################################################
#filename : factorial.tcl
# define function to compute Factorial X!
proc Factorial {x} {
# define variable
set result 1
# for loop
for {set i 1} {$i <= $x} {incr i} {
set result [expr $result * $i]
}
# return computation result
return $result
}
#############################################################################
# define function to compute 2^x
proc 2pow {x} {
# define variable
set result 1
# for loop
for {set i 1} {$i <= $x} {incr i} {
# fill in here
}
# return computation result
return $result
}
# make function call
set result [Factorial 10]
# output result
puts "$result"
# make function call
set result [2pow 10]
# output result
puts "$result"
Post a Comment