Changeset 21998

Timestamp:

08/21/08 20:41:44 (3 months ago)

Author:

moritz

Message:

[t/examples] some more fixes caught by STD.pm

Location:

t/examples/99problems

Files:

• problem61.t (modified) (1 diff)
• problem62.t (modified) (1 diff)
• problem65.t (modified) (1 diff)

t/examples/99problems/problem61.t

@@ -35 +35 @@
 sub leaves($tree){
     return () unless defined($tree);
-    return $tree[0], if (not defined($tree[1])) and (not defined($tree[2]));
+    return ($tree[0],) if (not defined($tree[1])) and (not defined($tree[2]));
     return leaves($tree[1]), leaves($tree[2]);
 }

t/examples/99problems/problem62.t

@@ -41 +41 @@
 sub atlevel($tree, $level) {
     return () unless defined($tree);
-    return $tree[0], if $level == 1;
+    return $tree[0] if $level == 1;
     return atlevel($tree[1], $level - 1), atlevel($tree[2], $level - 1);
 }

t/examples/99problems/problem65.t

@@ -35 +35 @@
 sub height($tree){
     return 0 unless defined($tree);
-    return 1 + max(height($tree[1]), height($tree[2]));
+    return 1 + [max] height($tree[1]), height($tree[2]);
 }