view release on metacpan or  search on metacpan

t/order.t  view on Meta::CPAN

use Acme::URM;

my $rm	= Acme::URM->new();
$rm->program(
			# adding arguments, summ in 0
			 'T(0,2)',	# prevent first argument while adding
			 'J(1,3,5)',
			 'S(0)',
			 'S(3)',
			 'J(0,0,1)',
			# grow one of elements while it achieve second or summ
			 'J(2,1,9)',
			 'J(2,0,11)',
			 'S(2)',
			 'J(0,0,5)',
			 'Z(0)',
			 'J(0,0,'.Acme::URM::LAST.')',
			 'Z(0)',
			 'S(0)',
			 'J(0,0,'.Acme::URM::LAST.')',
			 );