Select Code to Download

sub quite_functional_FY {
    my $i = int rand @_;
    return @_ ? ($_[$i], quite_functional_FY(@_[0 .. $i-1, $i+1 .. $#_
+])) : ();
}

sub quite_functional_FY {
    my $i = int rand @_;
    return @_ > 1 ? ($_[$i], quite_functional_FY(@_[0 .. $i-1, $i+1 ..
+ $#_])) : @_;
}