sergot/golf.pl

## golf.pl
TODO

## japh.pl
use v6;

say "Just another Perl hacker";

## oneliners.pl
use v6;

# Program 1
print (.split('')[2] or '') for lines();

# Program 2
my $s; $s += $_ for lines(); say $s;

# Program 3
say $_~"\n" for lines();

# Program 4
my $n; say "{++$n}.$_" for lines();

# Program 5
for lines() { last if m:i/^end$/; next if m:i/^start$/; .say; }

## roman.pl
TODO
	use v6;

	# Program 1
	print (.split('')[2] or '') for lines();

	# Program 2
	my $s; $s += $_ for lines(); say $s;

	# Program 3
	say $_~"\n" for lines();

	# Program 4
	my $n; say "{++$n}.$_" for lines();

	# Program 5
	for lines() { last if m:i/^end$/; next if m:i/^start$/; .say; }