lang: Remove duplicate test
It's contents were identical to the stmtfunc-recursive-double.txtar test.
This commit is contained in:
@@ -1,34 +0,0 @@
|
|||||||
-- main.mcl --
|
|
||||||
import "fmt"
|
|
||||||
|
|
||||||
# recursive function (not supported!)
|
|
||||||
func sum1($in) {
|
|
||||||
if $in < 0 {
|
|
||||||
-1 * sum2(-1 * $in)
|
|
||||||
} else {
|
|
||||||
if $in == 0 {
|
|
||||||
0 # terminate recursion
|
|
||||||
} else {
|
|
||||||
$in + sum2($in - 1)
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
func sum2($in) {
|
|
||||||
if $in < 0 {
|
|
||||||
-1 * sum1(-1 * $in)
|
|
||||||
} else {
|
|
||||||
if $in == 0 {
|
|
||||||
0 # terminate recursion
|
|
||||||
} else {
|
|
||||||
$in + sum1($in - 1)
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
$out1 = sum1(4) # 4 + 3 + 2 + 1 + 0 = 10
|
|
||||||
$out2 = sum2(-5) # -5 + -4 + -3 + -2 + -1 + -0 = -15
|
|
||||||
|
|
||||||
test fmt.printf("sum1(4) is %d", $out1) {}
|
|
||||||
test fmt.printf("sum2(-5) is %d", $out2) {}
|
|
||||||
-- OUTPUT --
|
|
||||||
# err: errSetScope: recursive reference while setting scope: not a dag
|
|
||||||
Reference in New Issue
Block a user