1, 2, miss a few, 99, 100

Question

When I was a kid, there was a "really cool" shortcut to count to 100:

1, 2, miss a few, 99, 100

Output the exact string above, in the fewest characters possible, without using these characters: 0, 1, 2, 9

Answer 1

JavaScript (ES6), 43 bytes

Browser only.

_=>atob`MSwgMiwgbWlzcyBhIGZldywgOTksIDEwMA`

Try it online! (with a polyfill)

---

JavaScript (ES6), 45 bytes

_=>[4-3,5-3,'miss a few',33*3,5*5*4].join`, `

Try it online!

Answer 2

Bash + coreutils, 40

tr 3-? /-:<<<"5, 6, miss a few, ==, 544"

Try it online!

Answer 3

R, 43 41 bytes

cat(T+F:T,"miss a few",3*33+F:T,sep=", ")

Try it online!

T and F are equal to TRUE and FALSE. They get coerced to integers 1 and 0 by the operators + and :.

Answer 4

HTML + CSS, 118 bytes

<c>, <c>, miss a few, <d><d><c>, <c><style>c:before{content:counter(a);counter-increment:a}d{counter-increment:a 48}

Answer 5

Python 3, 54, 51, 47 42 bytes

Saved 2 bytes thanks to Digial Trauma's suggestion to replace 8*8+35 = 99 with 33*3 = 99.

Saved 1 byte by realizing that I could replace 8*8+36 = 100 with 4*5*5 = 100.

Saved 4 bytes thanks to dingledooper's suggestion to use sep=', ' in the print!

Saved 5 bytes thanks to ovs' suggestion to use bytes objects.

New Answer

print(*b"
","miss a few",*b"cd",sep=", ")

The b"
" is equivalent to b"\1\2".

Try it online!

Old Answer:

print(f"{4-3}, {6-4}, miss a few, {33*3}, {4*5*5}")

Try it online!

Answer 6

Jelly, 23 bytes

3Ṗ,³ṭ’¤j“¤mɗʂɠẉ⁾»W¤j⁾, 

Try it online!

How it works

One thing to note: Jelly has the Ṙ atom, which prints a string Jelly representation of it's argument. Lists in Jelly do not use [ and ] as open/close markers, instead they consist of comma-separated values:

1,2,3,4,5Ṙ

prints 1,2,3,4,5, unfortunately, without spaces.

3Ṗ,³ṭ’¤j“¤mɗʂɠẉ⁾»W¤j⁾,  - Main link. Takes no arguments
3                       - Yield 3;
 Ṗ                      - Pop from 3, yielding [1, 2]
      ¤                 - Group the previous links into a nilad:
   ³                    -   100
     ’                  -   Decrement; 99
    ṭ                   -   Tack; [99, 100]
  ,                     - Pair; [[1, 2], [99, 100]]
                  ¤     - Group the previous links into a nilad:
        “¤mɗʂɠẉ⁾»       -   The compressed string "miss a few"
                 W      -   Wrap; ["miss a few"]
       j                - Join; [1, 2, ["miss a few"], 99, 100]
                   j⁾,  - Join with ", "; "1, 2, miss a few, 99, 100"

Answer 7

Ruby, 42 bytes

$><<[3/3,6/3,'miss a few',33*3,5*5*4]*", "

Try it online!

-4 from Jonah. Borrows from Arnauld's answer.

Ruby, ⁴⁶ 44 bytes

$><<"
cd".bytes.insert(2,"miss a few")*", "

Try it online!

The three unprintables for codepoints 1, 2 and 3 are in the string containing "cd".

-2 from manatwork. Other version with same bytecount

Answer 8

Whispers v3, 124..120 114 bytes

>> Each 5 57
>> Then 7 3 6 3 4 3 54 3 8
> ", "
> "miss a few"
>> "L"
>> #3
>> #5
>> 53*6
>> #4
>> 8-7
>> Output 56

Try it online!

Explanation:

I use the fact that each line with the line number \$x\$ can be called with \$x + k \cdot n \$, where \$k \in \mathbb{N} \$ and \$n\$ is total number of lines of code. Example from code with 11 lines: the reference to line 1 can be replaced by 12, 23, 34, and so on.

Try the translated version online!

Line by line:

As always in Whispers, we run the last line first:

>> Output 56

This line outputs the result from line 56. Since the code does not have 56 lines it actually outputs line \$ 56 \mod 11 = 1\$:

>> Each 5 57

Applying the same trick again we can replace this line with:

>> Each 5 2

In line 5 we can expect a function and in line 2 an array. The function will be applied on each element of the array and it replaces the element with the result. Let us first look at line 5:

>> "L"

L is an argument from the Each statement in line 1. L is converted to a string.

Now line 2:

>> Then 7 3 6 3 4 3 54 3 8

Then creates an array with the arguments as its elements. If we would print this line we get the following array:

[1, ', ', 2, ', ', 'miss a few', ', ', 99, ', ', 100]

Explanation of the arguments:

Line 3 and 4: simple strings

Line 6: Returns the length of line 3, so we get 2

Line 7: Returns the length of line 5, so we get a 1

Line 8: Returns the result of line 53 (actually 9) raised to the power of the result of line 6, so we get 100

Line 54 (actually 10): Subtracts result of line 8 with the result of line 7, so we get a 99

Answer 9

PHP, 57 56 53 bytes

printf('%c, %d, miss a few, %d, %o',7*7,5-3,33*3,64);

Try it online!

A printf, some spices, stir

EDIT: -1 byte thanks to Digital Trauma

EDIT 2: -3 bytes thanks to Michael Dorgan for octal, thought about 153 with %x for hex but it has a 1..

Also, less fun but 2 bytes shorter by manatwork, improved by BadHorsie (it seems that <?= can also take multiple arguments with comas):

PHP, 51 49 bytes

<?=5-4,', ',5-3,', miss a few, ',33*3,', ',5*5*4;

Try it online!

Answer 10

C (gcc), 54 56 bytes

l(){printf("%c, %d, miss a few %d, %o",7*7,5-3,'c',64);}

Try it online!

Let's save a couple bytes using Octal for the 100. Thanks to Sheik Yerbouti for saving a byte and point out the no commas issue.

Answer 11

R, 52 bytes

cat(chartr("@-K","/-:","B, C, miss a few, JJ, BAA"))

Try it online!

Encodes numbers as uppercase letters and then applies character range translation. Since we can't directly type 0-9, we expand the range by 1 character in both directions resulting in /-:.

Answer 12

brainfuck, 146 bytes

-[----->+>+>+>++>++<<<<<]>>>--.-----.------------.<-.------.>.>+++++++.>+++.<++++++..<.>>--------.<<.>>+++++.-.<++++.<<.>.<<++++++..>.>.<+++++.-..

Try it online!

A fairly straightforward 255/5=51 loop giving ASCII 51 and ASCII 102 as 333ff in 5 consecutive cells, followed by hunt and peck strategy.

Answer 13

Perl 5, 42 bytes

$,=", ";say!!3,5-3,"miss a few",3*33,4*5*5

Sets the record separator, and prints a few numbers and a string.

Try it online!

Perl 5, 43 bytes

say"C, D, miss a few, KK, CBB"=~y,A-L,/-:,r

Translates B-K to 0-9 (extended by one more ASCII code on each side of the range) and prints.

Try it online!

Perl 5, 44 bytes

$,=", ";say unpack"c3/acc","

miss a fewcd"

Sets the record separator, and unpacks values to be printed.

Try it online!

Answer 14

Julia, 41 bytes

()->join([b"
";"miss a few";b"cd"],", ")

Try it online!

the first string is "\1\2" which is allowed if I understand the challenge correctly

b"str" converts the string in an array of the value of each character so b"\1\2" => [1,2] and b"cd" => [99,100]

Answer 15

Husk, 31 bytes

mȯ←←←"4/#5/#plvv#d#ihz/#<</#433

Try it online!

Explanation:

m                                 Map the function...
 ȯ←←←                             Decrement character 3 times
      "4/#5/#plvv#d#ihz/#<</#433  desired string "ASCII-shifted" by 3

Answer 16

Jelly, 22 bytes

³ḊĖ.ịṚj“¤mɗʂɠẉ⁾»W¤j⁾, 

A full program that prints the result.

Try it online!

How?

³ḊĖ.ịṚj“¤mɗʂɠẉ⁾»W¤j⁾,  - Link: no arguments
³                      - 100
 Ḋ                     - dequeue -> [2,3,...,99,100]
  Ė                    - enumerate -> [[1,2],[2,3],...,[98,99],[99,100]]
   .                   - 0.5
    ị                  - index into -> [[99,100],[1,2]]
     Ṛ                 - reverse
                 ¤     - nilad followed by links as a nilad:
       “¤mɗʂɠẉ⁾»       -   dictionary compression of "miss a few"
                W      -   wrap in a list  -> ["miss a few"]
      j                - join              -> [1,2,"miss a few",99,100]
                   ⁾,  - ", "
                  j    - join              -> [1,", ",2,", ","miss a few",", ",99,", ",100]
                       - implicit print    -> `1, 2, miss a few, 99, 100`

Answer 17

05AB1E, 16 bytes

I don't think this would be shorter with 0, 1, 2 and 9.

XY…š§€…†Óт<т„, ý

Try it online!

X                # push 1
 Y               # push 2
  …š§€…†Ó        # push compressed dictionary string "miss a few"
         т<      # push 100-1
           т     # push 100
            „,   # push string ", "
               ý # join the stack with this string

Answer 18

Stax, 20 19 17 bytes

saved 2 bytes thanks to Razetime

ü←φr5╧wL'•↔♦$▒ò╠‼

Run and debug it

Original brain-dead solution for reference purposes only:

Stax, 22 bytes

ü2Φÿßbÿ»f╙m¡6¿₧|░╘;┬u»

Run and debug it

Answer 19

C++, 56 bytes

[]{for(int x:"4/#5/#plvv#d#ihz/#<</#433"s)putchar(x-3);}

Inspired by a comment.

Usage:

#include <string>
#include <stdio.h>

using namespace std;

int main() {
    auto k = [](){for(int x:"4/#5/#plvv#d#ihz/#<</#433"s)putchar(x-3);};
    k();
    return 0;
}

Try it online!

Answer 20

Barrel, 31 34 bytes

+n, +n, 'miss a few, '#44+#45+n, +n

This is my own esolang, follow the link for more info.

Increments the accumulator, prints it, implicitly prints some strings (, and miss a few, are implicitly printed), does a loop on accumulator incrementation, and finishes as it started.

Edit: I realized that "97" used a "9". smacks forehead

Answer 21

Retina 0.8.2, 32 bytes

B, C, miss a few, JJ, BAA
T`L`d

Try it online! Explantion:

B, C, miss a few, JJ, BAA

Replace the empty input with the literal string.

T`L`d

Transliterate upper case letters to digits.

Answer 22

PowerShell (ASCII answer), 128 bytes

$k=3-3;((@(46+3),@(53-3),@('miss a few'),@(57,57),@((46+3),48,48))|%{$k++;if($k-eq3){$_}else{($_|%{[char]$_})-join''}})-join', '

Try it online!

PowerShell (Base64 one), 135 bytes

[Text.Encoding]::Unicode.GetString([Convert]::FromBase64string('MQAsACAAMgAsACAAbQBpAHMAcwAgAGEAIABmAGUAdwAsACAAOQA5ACwAIAAxADAAMAA='))

Try it online!

Answer 23

Jelly, 23 bytes

“×ƤṪ5Ġpṃ:Ƒ5ṫȷØJkxXp⁺¥ġ»

Try it online!

Same length as caird's answer, much more boring.

Answer 24

Python 2, 59 bytes

print ', '.join(map(str,(4-3,5-3,'miss a few',33*3,5*5*4)))

Try it online!

Thanks to @arnauld for js answer

Answer 25

Pyth, 29 bytes

j+\,d[=hZhZ"miss a few"t=*TTT

Try it online!

---

Python 3.8 translation:

Z=0
T=10

print(", ".join(map(str,[(Z:=Z+1),Z+1,"miss a few",(T:=T*T)-1,T])))

Answer 26

PHP, 48 bytes

<?=join(', ',[!'',~-3,'miss a few',33*3,45^73]);

Try it online!

Answer 27

Vim, 37 keystrokes

i3, 3, miss a few, 8, <esc>|<C-x><C-x>l.l<C-a>ylp$pp<C-a>

Answer 28

PHP, 58 54 bytes

<?=join(', ',[$i=3/3,++$i,'miss a few',$i=33*3,++$i]);

PHP doesnt really want to be typed short, but I liked coming up with this :)

Answer 29

Vyxal, 21 20 19 bytes

3ɽ÷«eeȮǒḋp«₁‹₁W‛, j

Try it Online!

Explained

3ɽ÷      # stack = [1, 2]
«eeȮǒḋp« # stack = [1, 2, "miss a few"] 
₁‹₁      # stack = [1, 2, "miss a few", 99, 100]
W‛, j    # join stack on ", "

Answer 30

Perl 6, 45 bytes

say join ", ",5-4,5-3,"miss a few",3*33,4*5*5

Try it online!