Skip to main content
1 of 2
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!

Xcali
  • 17k
  • 2
  • 17
  • 42