Superpermutations

Code Golf Asked by Isaac C on January 2, 2022

Introduction

You’re a criminal tasked with stealing some secret plans from the new tech startup Dejavu. You sneak in over the back wall, but find a door that requires a pin to open it. You recognize the make of the lock and know that it takes a 5 digit pin using all numbers from 0 to 4. After each digit entered, the lock checks the last 5 digits entered and opens if the code is correct. You have to get past this lock, and fast.

Superpermutations in a Nutshell

A permutation is all possible combinations of a certain set of digits. for example, all the permutations of the digits 0, 1, 2 are:

012, 021, 102, 120, 201, and 210.

If we concatenate all these permutations together, we get a superpermutation:

012021102120201210

this superpermutation contains all the permutations of 0, 1, 2, but it’s possible to make one shorter than this. I’m going to skip a bit here, but the shortest superpermutation of these digits is:

012010210

For our intents and purposes, this is essentially the shortest string of digits that contains all possible permutations of those digits, i.e. a superpermutation.

Your task is a bit harder than the superpermutation example as shown above, because you have two more digits to worry about. – If you haven’t read about superpermutations, or my example above was a bit unclear, I highly suggest you read this great article by Patrick Honner on the subject (this challenge was quite heavily inspired by his article, so kudos to him): https://www.quantamagazine.org/unscrambling-the-hidden-secrets-of-superpermutations-20190116/. Your goal is to write the shortest program possible that generates a superpermutation of the digits 0 to 4.

Scoring

Your program does not take any input of any sort, and produce a superpermutation of the digits from 0 to 4. This resulting superpermutation must be printed to the console or visibly displayed to the user to the extent provided by your language of choice. This doesn’t have to be the shortest permutation possible, it just has to be a valid superpermutation. Because of this, the goal is to write the shortest program with the shortest superpermutation, so you should calculate your score like so:

file size (bytes) * generated superpermutation length (digits)

for example, if I had a 40 byte program, and my superpermutation is 153 digits long, my score will be:

40 * 153 = 6120

as always, the goal is to get this score as low as possible.

Template

Language | Score

link to code in working environment (if possible)

code snippet

code explanation, etc.

Finalities

This is one of my first questions on this site. So please tell me if I’m missing anything or a section of my challenge is unclear. Thank you, and have fun golfing!

Wolfram Language (Mathematica), 153*95 bytes, 14535

Nest[Flatten[Join[#,{Max@#+1},#]&/@Partition[#,Max@#+1,1]]//.{b__,a__,a__,c__}:>{b,a,c}&,{0},4]


Try it online!

Answered by ZaMoC on January 2, 2022

CJam (6 * 240 = 1440)

5e!72>


Online demo, validation (outputs the index at which each permutation of 0..4 can be found; it needs to flatten the output because the original program gives suitable output to stdout but what it places on the stack is not directly usable).

Approach stolen from Sanchises, although the permutation order of CJam is different, giving a different substring.

CJam (22 * 207 = 4554)

0a4{)W@+W+1$)ewa*W-}/  Dissection This uses a simple recursive construction. 0a e# Start with a superpermutation of one element, [0] 4{ e# for x = 0 to 3: ) e# increment it: n = x+1 W@+W+ e# wrap the smaller superpermutation in [-1 ... -1] 1$)ew  e#   split into chunks of length n+1
a*    e#   insert an n between each chunk
W-     e#   remove the -1s from the ends
}/


Answered by Peter Taylor on January 2, 2022

MATL, 16 x 442 = 7072

4Y25:Y@!)K442&:)


Try it online!

MATL port of my Octave answer. -442 thanks to Luis Mendo

Answered by Sanchises on January 2, 2022

Charcoal, 29 bytes, output length 153, score 4437

”)⊞⧴�r3⁼Ｈ⁴↓¦σ✳ＬïpＷＳ [Ｔ↑ZωÞ”‖Ｏ


Try it online! Link is to verbose version of code. Explanation: Like @TFeld, I just print half of a superpermutation and mirror it. I calculated the superpermutation using the following code:

Push(u, w);
for (u) {
Assign(Plus(Plus(i, Length(i)), i), h);
Assign(Ternary(i, Join(Split(w, i), h), h), w);
Assign(Incremented(Length(i)), z);
if (Less(z, 5)) for (z) Push(u, Slice(h, k, Plus(k, z));
}
Print(w);


This translates to a 45-byte program in Charcoal so would have scored 6885.

Answered by Neil on January 2, 2022

Octave, 27 x 442 = 11934

'01234'(perms(1:5)'(4:445))


Try it online!

So, it turns out, naively generating all the permutations and then truncating to the shortest substring that is still a valid superpermutation is shorter than generating the shortest superpermutation. Sadly, this time the score is not a palindrome.

Octave, 97 x 153 = 14841

a=sym(9);while i<120
i=0;a+=1;q='01234';for t=q(perms(1:5))'
i+=any(regexp(char(a),t'));end
end
a


Try it online!

Entry updated for a few things

• a++ is not implemented for symbolic numbers.
• contains() is not implemented in Octave. Replaced with any(regexp()).
• In the online link, I manually entered an a very close to the 153-length superpermutation. This allows for the solution to be verified.

Answered by Sanchises on January 2, 2022

Japt -P, 2376 (11 x 216)

4o ¬á Ë+4+D


Try it!

-1 byte thanks to @ Shaggy!

Port of Anders Kaseorg's Pyth answer.

Answered by dana on January 2, 2022

JavaScript (ES6), 26975 (325 * 83 bytes)

With this scoring system, there's little room for something between 'hardcode the optimal supermutation' and 'just use a short built-in to concatenate all permutations', at least in non-esolangs.

Here's an attempt anyway.

f=(a=[0,1,2,3,4],p=r='')=>a.map((v,i)=>f(a.filter(_=>i--),p+v))|~r.search(p)?r:r+=p


Try it online!

It generates a string of 325 bytes:

012340124301324013420142301432021340214302314023410241302431031240314203214032410341203421
041230413204213042310431204321102341024310324103421042310432201342014320314203412041320431
210342104330124301423021430241304123042131024310423201432041321044012340132402134023140312
4032141023410324201342031421034301243021431024320143210


Answered by Arnauld on January 2, 2022

Brachylog, score = 2907 (19 bytes × 153)

4⟦pᶠP∧~l.g;Pz{sᵈ}ᵐ∧


Too slow to see anything, but if you change 4 by 2 you can test it: Try it online!

This finds the shortest superpermutation as such:

4⟦                   The range [0,1,2,3,4]
pᶠP                P is the list of all permutations of this range
∧
~l.            Try increasing lengths for the output
g;Pz        Zip the output with P
{sᵈ}ᵐ   For each permutation, it must be a substring of the output
∧


Answered by Fatalize on January 2, 2022

05AB1E, score = 1673 (7 bytes · 239)

žBœ∊{3ý


Try it online!

How it works

žB          push 1024
œ         permutations: ["1024", "1042", …, "4201"]
∊        vertically mirror: ["1024", "1042", …, "4201", "4201", …, "1042", "1024"]
{       sort: ["0124", "0124", "0142", "0142", …, "4210", "4210"]
3      push 3
ý     join: "01243012430142301423…3421034210"


Pyth, score = 1944 (9 bytes · 216)

s+R+4d.p4


Try it online!

How it works

 +R   .p4   append to each permutation d of [0, 1, 2, 3]:
+4d        [4] + d
s           concatenate


Answered by Anders Kaseorg on January 2, 2022

Jelly, 3000 (600*5 bytes)

5ḶŒ!F


Try it online!

Answered by Arnauld on January 2, 2022

Perl 6, 7191 (153*47 bytes)

say first *.comb(permutations(5).all.join),0..*


Try it online!

Finds the first number that contains all permutations of the digits 0 to 4. This will take a long time to execute, but you can test it with the first two permutations 0 and 0,1

Answered by Jo King on January 2, 2022

05AB1E, score: 5355 2160 (216 * 10 bytes)

3ÝœJε4yJ}J


Port of @AndersKaseorg's Pyth answer, so make sure to upvote him!

Try it online.

Explanation:

3Ý           # Push a list in the range [0,3]: [0,1,2,3]
œ          # Get all possible permutations of this list
J         # Join each inner list together to a single string
ε        # Map each string y to:
#  (Push string y implicitly)
4       #  Push 4
y      #  Push string y again
J     #  Join all three together
}J   # After the map: Join all strings together to a single string
# (and output it implicitly as result)


Answered by Kevin Cruijssen on January 2, 2022

Python 2, Score: 243271514712852 12628 (154*82 bytes)

S=str(int('OH97GKT83A0GJRVO309F4SGSRWD0S2T292S1JBPVKJ6CRUY8O',36))
print S+S[::-1]


Try it online!

Also:

Python 2, 12628 (154*82 bytes)

S=oct(int('FS02C3XQJX14OTVMGM70CGCPWU41MNJZ0CO37ZMU0A0Y',36))[:-1]
print S+S[::-1]


Try it online!

Answered by TFeld on January 2, 2022

Related Questions

Counting painted sides of cubic shapes

7  Asked on October 27, 2021 by don-thousand

Tents and Trees feasibility

2  Asked on October 27, 2021

Which languages are optimal for problems that require “reading” input while also writing to it like a stack

1  Asked on October 27, 2021

Are These Scores Possible?

12  Asked on October 27, 2021

Count The Genus

3  Asked on October 27, 2021

Shortest Floor Function

42  Asked on October 27, 2021

Convert from base 10 to base 2 without built-in base conversions

32  Asked on October 27, 2021

Write an interpreter for my esoteric language Jumper

11  Asked on October 27, 2021 by somnium

Verify Magic Square

12  Asked on October 27, 2021 by user10766

Alignment on Triangular Grids

3  Asked on October 27, 2021

Connect the pixels

13  Asked on October 27, 2021 by tuxcrafting

Group these cells!

2  Asked on October 27, 2021 by superjedi224

Binary to decimal converter

69  Asked on October 27, 2021

Find the Fibonacci Kernel

2  Asked on October 27, 2021

K-Means Clustered Golf

2  Asked on October 27, 2021 by magic-octopus-urn

How much Mana do I need?

15  Asked on October 27, 2021

Find an Illegal String

56  Asked on October 27, 2021 by nneonneo

Find acronym-like words in a sentence

3  Asked on October 27, 2021

Resource for generating shortest regex given a list of strings

1  Asked on October 27, 2021

Logo Pack LAPACK

21  Asked on October 27, 2021