Changeset 21998 for t/examples/99problems/problem62.t
- Timestamp:
- 08/21/08 20:41:44 (5 months ago)
- Files:
-
- 1 modified
-
t/examples/99problems/problem62.t (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
t/examples/99problems/problem62.t
r20490 r21998 41 41 sub atlevel($tree, $level) { 42 42 return () unless defined($tree); 43 return $tree[0] ,if $level == 1;43 return $tree[0] if $level == 1; 44 44 return atlevel($tree[1], $level - 1), atlevel($tree[2], $level - 1); 45 45 }
