Skip to main content
deleted 8 characters in body
Source Link
Xcali
  • 17k
  • 2
  • 17
  • 42

Perl 5 -MList::Util=none -n, 100100 89 bytes

$"=',';@b=1..$_;map{@c=sort@d=/\d+/g;$q=0;say%k=$q=0;say if"@b"eq"@c"&&noneif none{++$q==$_++$q==$_||$k{$_}@d++}/\d+/g}glob join$",("{@b}")x@b 

Try it online!Try it online!

Perl 5 -MList::Util=none -n, 100 bytes

$"=',';@b=1..$_;map{@c=sort@d=/\d+/g;$q=0;say if"@b"eq"@c"&&none{++$q==$_}@d}glob join$",("{@b}")x@b 

Try it online!

Perl 5 -MList::Util=none -n, 100 89 bytes

$"=',';@b=1..$_;map{%k=$q=0;say if none{++$q==$_||$k{$_}++}/\d+/g}glob join$",("{@b}")x@b 

Try it online!

Source Link
Xcali
  • 17k
  • 2
  • 17
  • 42

Perl 5 -MList::Util=none -n, 100 bytes

$"=',';@b=1..$_;map{@c=sort@d=/\d+/g;$q=0;say if"@b"eq"@c"&&none{++$q==$_}@d}glob join$",("{@b}")x@b 

Try it online!