# FROGGS/roast forked from perl6/roast

### Subversion checkout URL

You can clone with HTTPS or Subversion.

Fetching contributors…

Cannot retrieve contributors at this time

36 lines (24 sloc) 1.065 kb
 use v6; use Test; # L plan 8; # sequence with a limit function of arity 2 is (8,*/2 ... (*-*).abs < 2).join(', '), '8, 4, 2, 1', 'arity-2 convergence limit'; is (8,*/2 ...^ (*-*).abs < 2).join(', '), '8, 4, 2', 'arity-2 excluded convergence limit'; # sequence with a limit function of arity 3 { my \$i = -5; my @seq = { ++\$i; \$i**3-9*\$i } ... { (\$^a-\$^b) > (\$^b-\$^c) }; is @seq.join(', '), '-28, 0, 10, 8, 0, -8, -10', 'arity-3 curvature limit'; } { my \$i = -5; my @seq = { ++\$i; \$i**3-9*\$i } ...^ { (\$^a-\$^b) > (\$^b-\$^c) }; is @seq.join(', '), '-28, 0, 10, 8, 0, -8', 'arity-3 excluded curvature limit'; } is (2, 1, 0.5 ... (*-*).abs < 2).join(', '), '2, 1', 'ASAP arity-2 convergence limit'; is (2, 1, 0.5 ...^ (*-*).abs < 2).join(', '), '2', 'ASAP arity-2 excluded convergence limit'; # limit function that accepts any number of args is (1 ... { @_ eq "1 2 3" }).join(', '), '1, 2, 3', 'arity-Inf limit'; is (1 ...^ { @_ eq "1 2 3" }).join(', '), '1, 2', 'arity-Inf excluded limit'; done;
Something went wrong with that request. Please try again.