challenge-047/ruben-westerberg/perl/ch-2.pl


1
2
3
4
5
6
7
8
9
10

#!/usr/bin/env perl
use strict;
use warnings;
use v5.26;
my @gapful;
while (@gapful < 20) {
	state $i=99;
	push @gapful, $i unless ++$i % int join "", do {my @a=split("",$i);@a[0,-1]};
}
print join " ",@gapful;