Mutual recursion: Difference between revisions
Content deleted Content added
SNUSP!!! |
→{{header|UNIX Shell}}: ++ an attempt with Tcl... (future: rewrite aMSN!) |
||
| Line 588: | Line 588: | ||
check for zero |
check for zero |
||
</lang> |
</lang> |
||
=={{header|Tcl}}== |
|||
<lang tcl>proc m {n} { |
|||
if { $n == 0 } { expr 0; } else { |
|||
expr {$n - [f [m [expr {$n-1}] ]]}; |
|||
} |
|||
} |
|||
proc f {n} { |
|||
if { $n == 0 } { expr 1; } else { |
|||
expr {$n - [m [f [expr {$n-1}] ]]}; |
|||
} |
|||
} |
|||
for {set i 0} {$i < 20} {incr i} { |
|||
puts -nonewline [f $i]; |
|||
puts -nonewline " "; |
|||
} |
|||
puts "" |
|||
for {set i 0} {$i < 20} {incr i} { |
|||
puts -nonewline [m $i]; |
|||
puts -nonewline " "; |
|||
} |
|||
puts ""</lang> |
|||
=={{header|UNIX Shell}}== |
=={{header|UNIX Shell}}== |
||