15
\$\begingroup\$

Task

Encode a string that entirely consists of uppercase alphabets (A-Z) using only zeros and ones, using your own favorite scheme. But the rule isn't that simple!

Rules

  1. Your program/function must correctly handle any valid input string of length 8.
  2. The results must have the same length for all inputs.
  3. The results must be distinct for distinct inputs.
  4. The results must be as short as possible.
  5. The results must be zero-one balanced (have number of ones similar to that of zeros). They don't have to be equal (i.e. perfectly balanced), but your score will be penalized for that.

You don't have to provide a program/function that decodes your encoding.

Input and Output

  • You can decide to accept any set of 26 distinct printable ASCII characters instead of A-Z.
  • You can decide to output any pair of distinct printable ASCII characters instead of 0 and 1.
  • You are not allowed to output an integer instead of a bit string, since it may have leading zeros and it's unclear if you actually met the rule 2.
  • If you decide to deviate from the default (A-Z input and 01 output), you must specify the input/output character sets in your submission.

Scoring

  • Base score: Code size, or 1 if your program happens to be empty.
  • Penalties
    • Penalty for length: multiply 1.5 ** (encoded length - 42)
    • There is no bonus for being shorter; 42 is the minimal length for a perfectly balanced encoding of 8-length strings with alphabet size 26.
    • Penalty for being unbalanced: multiply 2 ** max(abs(ones - zeros) for every valid input of length 8), where ones and zeros are the counts of 1 and 0 in each output, respectively.
    • Your submission must either show a worst-case example (input/output) or theoretical explanation on the penalty value.
  • The lowest score wins.

Example Submission

Hypothetical esolang, 0 Bytes, Score 74733.8906

Here is a hypothetical esolang, where an empty program prints out all the ASCII codes of input's characters in binary.

 

For example, if you give AAAAAAAA as input, the program will print 1000001 8 times in a row, i.e. 10000011000001100000110000011000001100000110000011000001.

The input alphabet is chosen to be CEFGIJKLMNQRSTUVXYZabcdefh. This way, all of the chars are converted to seven digits in binary, and the zero-one counts differ only by one per char (they all have three 1's and four 0's or vice versa when converted to binary).

The output length is always 56, and the worst-case unbalance occurs on the inputs like CCCCCCCC, where zeros appear 8 more times than ones.

Therefore, the score of this submission is 1.5 ** (56 - 42) * 2 ** 8 == 74733.8906.

\$\endgroup\$
10
  • \$\begingroup\$ Sandbox: codegolf.meta.stackexchange.com/a/14908/78410 \$\endgroup\$
    – Bubbler
    Mar 5, 2018 at 8:02
  • \$\begingroup\$ can I use my hypothetical esolang in which the empty program accepts a number N in letter-encoded 26-ary and outputs the N-th possible 42-bit sequence of sum 21? \$\endgroup\$
    – ngn
    Mar 5, 2018 at 8:32
  • \$\begingroup\$ @ngn - does your hypothetical language meet our accepted criteria? - EDIT ah input is always [A-Z] - I guess that's easy enough... :) \$\endgroup\$ Mar 5, 2018 at 8:42
  • 1
    \$\begingroup\$ Can we output a list of ones and zeroes or does it have to be a string? \$\endgroup\$
    – Dennis
    Mar 5, 2018 at 12:30
  • 1
    \$\begingroup\$ The whole question is lead into "mustn't have unbalance, must be in 42 digits, who care real running time" \$\endgroup\$
    – l4m2
    Mar 6, 2018 at 16:27

11 Answers 11

4
\$\begingroup\$

Stax, 11 bytes, 0 penalty, Score 11

This program uses [0-9A-P] for input and [01] for output.

ö■▄←·ï↨≡⌐╠H

Run and debug it online - click the run button to start. The first four test cases run in milliseconds. The fifth in seconds. The sixth in millenia.

The corresponding ascii representation of this program is this.

A$21*,26|bD|N

It leans heavily on the |N instruction, which gets the subsequent permutation of an array.

A$21*           "10" repeated 21 times
     ,26|b      get input and decode it as a base 26 number
          D|N    ... that many times get the next lexicographic permutation

All outputs are permutations of the initial string. It has 21 zeroes and 21 ones. Therefore, all outputs are 42 characters, and perfectly balanced.

\$\endgroup\$
4
\$\begingroup\$

Jelly, 18 bytes

2Ḷx21Œ!Q
O_65ḅ26ị¢

Try it online!

-1 byte thanks to caird coinheringaahing

might remember to re-add the explanation since it was restructured for golfing

\$\endgroup\$
4
  • \$\begingroup\$ E x p l a n a t i o n? \$\endgroup\$ Mar 6, 2018 at 4:03
  • \$\begingroup\$ @EsolangingFruit added \$\endgroup\$
    – hyper-neutrino
    Mar 6, 2018 at 4:09
  • \$\begingroup\$ -1 byte by restructuring \$\endgroup\$ Mar 7, 2021 at 0:48
  • \$\begingroup\$ @cairdcoinheringaahing thanks! \$\endgroup\$
    – hyper-neutrino
    Mar 7, 2021 at 18:58
3
\$\begingroup\$

Pyth, 20 19 14 bytes, Max Diff: 0, Length: 64, Score: 149636.5528 142154.7251 104745.5869

sm@S.{.p*`T4xG

Try it online!

Uses the lower case alphabet ([a-z]) instead of uppercase. Can use uppercase by replacing G with rG1, at the cost of 2 bytes.

I could have translated HyperNeutrino's Python 3 answer for a better score, but frankly, I want an answer that actually works.

\$\endgroup\$
2
\$\begingroup\$

Python 2, 779 645 bytes, Max(Diff) = 0, Length = 48, Score = 7346.95

def f(s):
 a,b=0,""
 for i in s:a=a*26+ord(i)-65
 a+=56*252**4
 for i in range(5):b=bin((int("4lnk28t9vtqgfrpfda9uyfrjhcjwjvno6aec2nwegi0g4mnublc05dher8fjm4s5gh55lu87a4itmc74t6tozcsfdbxkg82frwljy0wam1jht98g2j0bma021v5d48pwq0fklv0n1ltrxft1fpk5gt5mx5fj4p2mjqqpvcylt1xayxf1iwdmyoxgfvl7oui1oo6147bm9rqpqut9ns8hhjc77t3pqy48otovrsm1t4mmleumspkuef66ma1vi0l4mtkwaeeizuvvds9fro3vhc0mrn6ox17rdpk7xw747qf28934u5jci5q1qj81i7dyf7rf0x7hb19xm93xhxsgh4w8ifs6fhynsddbo9j938ewfvhjlbpiz50n5hanmno6c89blyx50e89z7vjq2ho2r2u2wwyu4q18kv4fi1nhmfbgjbnkdayr5kblaped4fo5u97bi9a67d89irxa0r9cinmnohfgjmh5fhkcr33",36)>>a%252*10)&1023)[2:].rjust(10,"0")+b;a/=252
 return b[2:]

Try it online!

The magic number 4lnk28t9vtqgfrpfda9uyfrjhcjwjvno6aec2nwegi0g4mnublc05dher8fjm4s5gh55lu87a4itmc74t6tozcsfdbxkg82frwljy0wam1jht98g2j0bma021v5d48pwq0fklv0n1ltrxft1fpk5gt5mx5fj4p2mjqqpvcylt1xayxf1iwdmyoxgfvl7oui1oo6147bm9rqpqut9ns8hhjc77t3pqy48otovrsm1t4mmleumspkuef66ma1vi0l4mtkwaeeizuvvds9fro3vhc0mrn6ox17rdpk7xw747qf28934u5jci5q1qj81i7dyf7rf0x7hb19xm93xhxsgh4w8ifs6fhynsddbo9j938ewfvhjlbpiz50n5hanmno6c89blyx50e89z7vjq2ho2r2u2wwyu4q18kv4fi1nhmfbgjbnkdayr5kblaped4fo5u97bi9a67d89irxa0r9cinmnohfgjmh5fhkcr33 (in base 36), or its decimal equivalent 382136276621246556626597379364678993894472503063952720559883124988542417847157286833446006767955087631166943136913765901237281892296575754126024183763829277879554548743231384272055945084065681774297483130020386641869860456147616177702938121538230311395513497506285733567467605871232294046704309941152721616618474501854355102646152223338484615876165254236449912858255665248186687952137487016925761633237335983620006273901509768720506129789443353730706676483647298576692613113269388239830925662977837917272690235355742330377154505179476767457756888107428475384947712227312747517748632498691058764154580934614231152483398774630508576533263098942260213967880819240793990219283490212843120923539516962682466148372296338428497778127570401190309339992457562121354271, encodes all 252 permutations of 5 0s and 5 1s.

The algorithm first converts A-Z into 0-25 and treat it as a base-26 number, then add 56*252**4.

Then, the number is converted to a 5-digit base-252 number, and substitute with the corresponding permutation of 5 0s and 5 1s.

After that, delete the first 2 bits, which is guaranteed to be 01. Then we have encoded the string to a 48-bit string, which consists of exactly 24 0s and 24 1s.

\$\endgroup\$
2
  • \$\begingroup\$ Pretty sure the penalties have to be multiplied (that is, your score is 7346.953125). \$\endgroup\$
    – hyper-neutrino
    Mar 5, 2018 at 9:29
  • \$\begingroup\$ @HyperNeutrino Oh I though it is addition ;P Edited \$\endgroup\$ Mar 5, 2018 at 9:33
2
\$\begingroup\$

JavaScript (ES8), score 22186.623779296875

f=
s=>s.replace(/./g,(c,i)=>(i%2*127^c.charCodeAt()).toString(2).padStart(7,0))
<input oninput=o.textContent=f(this.value)><pre id=o>

For even length input, always outputs 3.5* of zeros and ones, so it only pays the 1.5 ** 14 penalty. Supported characters: '+-.3569:<GKMNSUVYZ\cefijlqrtx.

\$\endgroup\$
2
\$\begingroup\$

Jelly, 16 bytes

42ɠO%ḅ26ịœcH$ạ‘Ṭ

Uses +,-./0123456789:;<=>?@ABCD for input and returns a list of ones and zeroes.

This attempts to build a list of 538,257,874,440 combinations in memory, so you'll need a large amount of RAM to run it as is...

Try it online! (testable; input length 3, output length 18)

How it works

42ɠO%ḅ26ịœcH$ạ‘Ṭ  Main link. No arguments.

42                Set the argument and the return value to 42.
  ɠ               Read one line from STDIN.
   O              Ordinal; map ['+', ..., 'D'] to [43, ..., 69].
    %             Take the code points modulo 42, mapping [43, ..., 69] to
                  [1, ..., 26].
     ḅ26          Convert the result from base 26 to integer.
            $     Combine the two links to the left into a monadic chain.
           H          Halve; yield 21.
         œc           Generate all 21-combinations of [1, ..., 42].
                  There are 538,257,874,440 of these combinations. The first
                  269,128,937,220 begin with a 1.
        ị         Retrieve the combination at the index to the left.
                  [26, 26, 26, 26, 26, 26, 26, 26] in bijective base 26 equals
                  217,180,147,158 in decimal, so the retrieved combination will
                  begin with a 1.
              ‘   Increment; yield 43.
             ạ    Absolute difference; map [1, ..., 42] to [42, ..., 1].
                  The combination now begins with a 42.
               Ṭ  Untruth; turn the combination into a Boolean list, with 1's
                  at the specified indices and 0's elsewhere.
                  Since the maximum of the combination is 42, this list will have
                  exactly 42 items, 21 of which will be 1's.
\$\endgroup\$
0
2
\$\begingroup\$

Python 3, 985 135 bytes, Max Diff 0, Length 42, score 135

lambda s:C(int(s,26),21,20)
B=lambda x,y:y<1or-~x*B(x+1,y-1)//y
def C(n,o,z):p=B(o,z);x=n>=p;return z+1and[x]+C(n-p*x,o-x,z-1+x)or[1]*o

Try it online!

Courtesy of Bubbler

Ungolfed code:

import math

def binomial(x, y):
    return math.factorial(x) // math.factorial(y) // math.factorial(x - y)

def string_to_int(input_str):
    result = 0
    for i in range(0,8):
        result += (ord(input_str[i])-65)%26 * pow(26,i)
    return result

def counting_function(target, ones, zeros):
    if zeros > 0:
        position = binomial(ones+zeros-1,zeros-1)
    else:
        position = 1
    if target > position:
        if ones > 0:
            print("1", end='')
            ones -= 1
            counting_function(target-position,ones,zeros)
    else:
        if zeros > 0:
            print("0", end='')
            zeros -= 1
            counting_function(target,ones,zeros)
        elif ones > 0:
            print("1", end='')
            ones -= 1
            counting_function(target,ones,zeros)

input_str = input("Input string (A-Z): ")
input_int = string_to_int(input_str)+1
target = input_int
ones = 21
zeros = 21
counting_function(target, ones, zeros)
print("")

Since other approaches seem quite inefficient, I've tried to make a time-optimal one. It is clealy O(N) in N bits of encoding, which is big-O optimal.

Hint: try to think of Pascal's triangle for this one (this diagram reveals it)

Sample outputs:

Input:  AAAAAAAA
Output: 000000000000000000000111111111111111111111

 

Input:  ZZZZZZZZ
Output: 011001000000011010011000111010110110111110

Execution time: < 0.013 s (roughly constant for all inputs)

\$\endgroup\$
5
  • 1
    \$\begingroup\$ Here is a quick golfed version(135 bytes, score 135). \$\endgroup\$
    – Bubbler
    Mar 6, 2018 at 6:53
  • \$\begingroup\$ @Bubbler Incredible, I did not posses the skills to achieve this \$\endgroup\$
    – Real
    Mar 6, 2018 at 12:51
  • \$\begingroup\$ But you should make some effort to minimize your score. All submissions should make a serious effort to optimize the score, otherwise it's invalid. \$\endgroup\$
    – DELETE_ME
    Mar 7, 2018 at 6:35
  • \$\begingroup\$ @user202729 I've modified to Bubbler's version then, which is minimized. I did make an effort to minimize my score though, just not through code size. \$\endgroup\$
    – Real
    Mar 7, 2018 at 12:45
  • \$\begingroup\$ About the latter point... correct. \$\endgroup\$
    – DELETE_ME
    Mar 7, 2018 at 13:44
2
\$\begingroup\$

Perl 5, 55 bytes, max diff 0, length 42, score 56 55

This works but will take a long but doable time (ZZZZZZZZ took 2.5 days on my computer). Memory is no problem.

Uses A-Z as input and 1 and A as encoding characters. They are always perfectly balanced. Skips the first 26^7 = 8031810176 balanced combinations representing string shorter than 8 characters, but that's OK since there are 538257874440 available and I use 208827064575 and 208827064575 + 8031810176 < 538257874440.

However it actually "counts" up to to the target combination which will take very long. That's why in the TIO link I only used a too short input string (which are also supported) to demonstrate that the output is correct. Will work up to a bit more than AAAAAA before TIO times out.ZZZZZZZZ should be about 26^3 = 17576 times slower.

#!/usr/bin/perl -ap
$_=1x21 .($i=A)x21;s/(A*)(1*)1A/$2$1A1/ until"@F"eq$i++

Try it online!

The decoder is almost the same:

#!/usr/bin/perl -ap
$_=1x21 .($\=A)x21;s/(A*)(1*)1A/$2$1A1/,$\++until"@F"eq$_}{

Try it online!

\$\endgroup\$
1
\$\begingroup\$

><>, 75 bytes, Max Diff 0, Length 42, score 75

0i:0(?v'A'-$dd+*+!
.")1+.\1+:0$:2%:}:@-2,@+$bl"
[ab+-?\$:?vv~3
~~]>n<v$-1<>

Try it online!

Fair warning, this will take a very very very long time to complete even for the trivial AAAAAAAA case. Runs through each binary representations of a counter until the (base 26 representation of the input)'th binary number with 21 1s is reached. If you want to test the program somewhat you can replace the ab+ on the third line with 1 which will return the nth binary number with just a single 1, Try it online!

\$\endgroup\$
1
\$\begingroup\$

Python 3, 75 bytes, Max Diff 0, Length 42, Score 112

lambda s:sorted({*permutations("01"*21)})[int(s,26)]
from itertools import*

Try it online!

This only works in theory because of memory constraints. There are 538257874440 distinct balanced zero-one strings of length 42 and 208827064575 possible inputs, so some of the possible outputs will not be used.

-37 bytes thanks to @recursive

\$\endgroup\$
4
  • \$\begingroup\$ You could use int(s,26) for your index value rather than sum(...) if you change your input character set. \$\endgroup\$
    – recursive
    Mar 5, 2018 at 16:37
  • \$\begingroup\$ @recursive that would require unprintables. tried that already \$\endgroup\$
    – hyper-neutrino
    Mar 5, 2018 at 16:39
  • \$\begingroup\$ Unprintables? It uses [0-9A-P], doesn't it? On my machine, int("123ABC",26) == 12855114 \$\endgroup\$
    – recursive
    Mar 5, 2018 at 16:40
  • \$\begingroup\$ @recursive oh yeah you're right idk what I was thinking lol. thanks! \$\endgroup\$
    – hyper-neutrino
    Mar 5, 2018 at 16:57
1
\$\begingroup\$

C++, 146 Bytes, 42 maxlength, 0 unbalance, score 146

#include<algorithm>
long long i,s;int f(char*I,char*O){for(O[i=42]=s=0;i--;i<8?s=s*26+I[i]:0)O[i]=i%2|48;for(;s--;)std::next_permutation(O,O+42);}

Works for any continious 26 char, but warning it runs an unacceptable time

\$\endgroup\$
3
  • \$\begingroup\$ It looks like that you're requiring an empty array being passed in addition. I don't think that's valid. / If you are using GCC you can replace #include<algorithm> with #import<regex>. \$\endgroup\$
    – DELETE_ME
    Mar 7, 2018 at 6:33
  • \$\begingroup\$ I'll change it when GCC decide to stop using an given pointer as output \$\endgroup\$
    – l4m2
    Mar 7, 2018 at 9:04
  • \$\begingroup\$ ... so that's pointer to output? Looks valid then. But you should mention the input/output format explicitly. \$\endgroup\$
    – DELETE_ME
    Mar 7, 2018 at 9:11

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Not the answer you're looking for? Browse other questions tagged or ask your own question.