Author: Scott Penrose

Specification

P22 (*) Create a list containing all integers within a given range.
        If first argument is smaller than second, produce a list in
        decreasing order.

Examples

> say ~range(4, 9);
4 5 6 7 8 9

Source code: P22-scottp.pl

use v6;

# a. Simple version - but only works in order
say ~list(4 .. 9);

# b. Try reverse
#       Simple check on arguments
#       Then just reverse the forward version of the list
sub range($a, $b) {
    if ($a > $b) {
        return list($b .. $a).reverse;
    }
    return list($a .. $b);
}
say ~range(4, 9);
say ~range(7, 2);