diff options
-rw-r--r-- | SSET.pl | 16 |
1 files changed, 16 insertions, 0 deletions
@@ -0,0 +1,16 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use 5.016; + +chomp(my $length = <>); +my @elements = 1..$length; + +say 2 ** $length; + +for my $i (0..(2 ** $length - 1)) { + my @included = split '', sprintf("%0${length}b", $i); + say '{' + . join(', ', map { $elements[$_] } grep { $included[$_] } 0..$length) + . '}'; +} |