ch-1.pl « perl « juliodcs « challenge-081 - github/perlweeklychallenge-club.git - Unnamed repository; edit this file 'description' to name the repository.

about summary refs log tree commit diff

path: root/challenge-081/juliodcs/perl/ch-1.pl

blob: 199408a21f6afacf0ca76ff1409cb4216fb8f3f0 (plain)

use strict;
use warnings;
use feature 'say';
use List::MoreUtils 'uniq';

say for uniq map { /^(.+)\1+$/; $1 // () } @ARGV;