Generate alphabet with 4 copies of each letter

Question

Note that this is not the same as Print the alphabet four times.

This task is to write a program to generate four copies of each letter of the English alphabet, one letter per line, on standard output:

A
A
A
A
B
B
B
B

etc.

The output should include newlines after each letter.

Uppercase letters with no extra output are preferred; however, lowercase letters and/or extra whitespace are acceptable if capitalizing/stripping would lengthen your solution.

EDITED TO ADD: The solution must be complete enough to execute. I should be able to invoke an implementation of the language, paste the code from the answer, and get results, without typing any additional code.

The above question of completeness came up in the context of a C solution. Surely there must be a standing rule or convention about this on a code golfing site? If so, I'll gladly yield to the community guidelines. But this is my take:

With regard to C specifically, you need to include (and count) the main(){...} around the code, since it won't compile otherwise. Warnings because there's no #include <stdio.h> are fine as long as the code still compiles. In general, a compiled language requires a compilable unit.
A bare expression that yields the desired results is acceptable if there's a way to execute the expression directly; for instance, if the language has a REPL. So you can submit Haskell without a main= as long as it actually works as written at e.g. the ghci prompt. But since that means putting let on your declarations, it may be a net win to stick with the runhaskell format.
Similarly, awk scripts should be in BEGIN (or END, with the assumption that stdin is attached to /dev/null) blocks since we're not processing any input.

etc.

I'm slightly confused. Is the challenge here just to output the alphabet with each letter repeated four times, or does the output actually need to be stored in a file as well? — Iszi, Dec 13 '13 at 17:26
@MarkReed Do I need to print it with newlines in between? Why not just print it, but newlines optional? — Justin, Dec 13 '13 at 17:44
Also, I recommend rephrasing your challenge so that it is more like a challenge and less like telling the story of how you invented your answer. — Justin, Dec 13 '13 at 17:46
The last bit muddies the whitespace rules just a tad. Could you please clarify? Particularly, am I reading it right to interpret that extra whitespace is okay but omission of newlines is not? — Iszi, Dec 13 '13 at 19:44

marinus · Accepted Answer · 2013-12-13 18:19:28Z

16

APL (5)

⍪4/⎕A

Matrix format (⍪) of 4-replication (4/) of alphabet (⎕A).

answered Dec 13 '13 at 18:19

marinus

30.7k6 gold badges66 silver badges111 bronze badges

1

\$\begingroup\$ Seems unlikely to be beaten. :) \$\endgroup\$ – Mark Reed Dec 17 '13 at 12:53
1

\$\begingroup\$ I count 9 bytes. \$\endgroup\$ – Oliver Ni Oct 23 '16 at 4:06
\$\begingroup\$ APL uses a code-page that maps each of the characters it uses to one byte. This code page can be found here, on IBM's website. \$\endgroup\$ – Steven H. Oct 23 '16 at 4:08
\$\begingroup\$ @StevenH. Link is dead \$\endgroup\$ – Stan Strum Mar 25 '18 at 22:59
\$\begingroup\$ @StanStrum I believe the link is dead because of deprecation, but for the sake of code golfing this meta answer should work. \$\endgroup\$ – Steven H. Mar 27 '18 at 2:11

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

11

Python - 37

for i in range(104):print chr(i/4+65)

i goes from 0 to 104; it is divided by four and added to the ascii value for A, and the resulting character is printed.

edited Jun 17 '20 at 9:04

Community♦

1

answered Dec 13 '13 at 17:25

Justin

20.3k9 gold badges60 silver badges111 bronze badges

\$\begingroup\$ I take it Python uses integer division by default? Would kinda be nice if PowerShell did right now. As it is, the code necessary to force it into integer division is too long for this trick to help me save anything on my script. \$\endgroup\$ – Iszi Dec 13 '13 at 17:42
\$\begingroup\$ @lszi - Python takes its cue from the type of the operands. 3/4 is 0, while 3.0/4.0 is 0.75; range() generates integers. \$\endgroup\$ – Mark Reed Dec 13 '13 at 17:43
1

\$\begingroup\$ This does not work on newer versions of python. First, the print function must be called with brackets, and / no longer does integer division by default (even if both numbers are integers), which is //'s job Try: for i in range(104):print(chr(i//4+65)) \$\endgroup\$ – user10979 Dec 14 '13 at 8:27
3

\$\begingroup\$ @Consciousness I know that. I deliberately chose to use an old version so that it can be golfed better. If you were to run this at Ideone.com, you'd choose "Python" instead of "Python 3" \$\endgroup\$ – Justin Dec 14 '13 at 19:48
3

\$\begingroup\$ @Consciousness - by "newer versions of python", you're referring to "Python 3", which is far from universally adopted at this point. I generally assume that anything claiming to be "Python" without a specified version is Python 2.x until proven otherwise; Python 3 code tends to be explicitly so labeled. \$\endgroup\$ – Mark Reed Apr 10 '14 at 20:01

Add a comment |

Sven Hohenstein · Accepted Answer · 2018-03-16 15:08:47Z

9

R, 30 28 27

write(rep(LETTERS,e=4),1,1)

Former version with 30 bytes:

cat(rep(LETTERS,e=4),sep="\n")

edited Mar 16 '18 at 15:08

answered Dec 13 '13 at 18:15

Sven Hohenstein

2,4843 gold badges11 silver badges25 bronze badges

\$\begingroup\$ I think a literal newline is a byte shorter :) \$\endgroup\$ – Giuseppe Jul 25 '17 at 15:31
\$\begingroup\$ @Giuseppe Can you specify this idea? \$\endgroup\$ – Sven Hohenstein Jul 25 '17 at 15:34
1

\$\begingroup\$ Try it online! \$\endgroup\$ – Giuseppe Jul 25 '17 at 15:36
\$\begingroup\$ @Giuseppe Really good idea! Thanks for pointing out. \$\endgroup\$ – Sven Hohenstein Jul 25 '17 at 15:37
\$\begingroup\$ You can use 1 instead of "" to specify stdout in write as well, which saves another byte. \$\endgroup\$ – Giuseppe Mar 16 '18 at 12:53

| Show 2 more comments

Darren Stone · Accepted Answer · 2013-12-14 01:23:45Z

7

C, 59

I submit this, an uncompetitively long answer, simply because I don't see a C submission yet. And that makes me sad. :-/

LATER: Props to @moala for doing a "/4" int version of this, saving 13 chars!

float i;main(){while(i<26)printf("%c\n",65+(int)i),i+=.25;}

edited Dec 14 '13 at 1:23

answered Dec 13 '13 at 21:42

Darren Stone

5,1421 gold badge14 silver badges27 bronze badges

\$\begingroup\$ I've edited my answer, now saving even 2 more chars! \$\endgroup\$ – moala Dec 17 '13 at 1:37
\$\begingroup\$ and another one! \$\endgroup\$ – moala Dec 17 '13 at 2:42

Add a comment |

p.s.w.g · Accepted Answer · 2013-12-14 01:54:16Z

6

J: 18 13

4#u:65+i.26 1

^{I'm still pretty shaky with J, so this could probably be improved}

edited Dec 14 '13 at 1:54

answered Dec 13 '13 at 23:46

p.s.w.g

5735 silver badges14 bronze badges

3

\$\begingroup\$ You can use replicate (#) instead of division like so: 4#u:65+i.26 1. Also, ~ swaps a function's arguments, so if you ever find yourself doing (expression) F value, you can replace that with value F~ expression to save a character. \$\endgroup\$ – marinus Dec 14 '13 at 1:34
\$\begingroup\$ @marinus Thanks for the tip. I'm still learning J and it's hard to find any good info with those kinds of tricks. \$\endgroup\$ – p.s.w.g Dec 14 '13 at 1:55
1

\$\begingroup\$ 4#65{26,.\a. for 12 bytes. \$\endgroup\$ – FrownyFrog Oct 29 '17 at 6:59

Add a comment |

Darren Stone · Accepted Answer · 2013-12-13 19:02:22Z

5

Ruby, 23

puts ([*?A..?Z]*4).sort

All credit to @manatwork -- upvote his comment, not this. :)

edited Dec 13 '13 at 19:02

answered Dec 13 '13 at 18:55

Darren Stone

5,1421 gold badge14 silver badges27 bronze badges

\$\begingroup\$ Huge. @manatwork, I'll make the edit but obviously I don't deserve any credit! \$\endgroup\$ – Darren Stone Dec 13 '13 at 19:01
5

\$\begingroup\$ Better make it puts [*?A..?Z].map{|i|[i]*4} or puts ([*?A..?Z]*4).sort, so the letters get ordered as in the example. \$\endgroup\$ – manatwork Dec 13 '13 at 19:02
2

\$\begingroup\$ @manatwork: puts (?A..?Z).map{|i|[i]*4} is a character shorter. You can call map directly on a Range, so you don't need the splat in this case. \$\endgroup\$ – Mark Reed Dec 13 '13 at 19:08

Add a comment |

Iszi · Accepted Answer · 2013-12-13 19:18:47Z

5

PowerShell: 32 23

Golfed code:

[char[]](65..90*4)|Sort

Walkthrough:

[char[]](...) takes an array of objects and converts them to ASCII characters.
65..90 are the ASCII codes for A-Z.
*4 repeats the series 4 times.
|Sort sorts the output.

Note:

If you want this written to a file, just throw >, followed by a file name, at the end.

edited Dec 13 '13 at 19:18

answered Dec 13 '13 at 17:25

Iszi

2,44920 silver badges26 bronze badges

Add a comment |

MtnViewMark · Accepted Answer · 2013-12-14 08:01:39Z

5

Haskell, 46

x a=a++a
main=putStr$['A'..'Z']>>=x.x.(:"\n")

answered Dec 14 '13 at 8:01

MtnViewMark

4,83915 silver badges26 bronze badges

1

\$\begingroup\$ putStr$['A'..'Z']>>=("golf">>).(:"\n") saves 8 bits \$\endgroup\$ – Angs Oct 23 '16 at 17:03

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

5

Befunge 98 - 18

1+::'g`#@_4/'A+,a,

Works by storing a number and ending when it reaches 104. Prints out the corresponding character of the alphabet for the number divided by 4, followed by a newline. But if I need not add a newline after each letter, then it is 16 chars:

1+::'g`#@_4/'A+,

Can be reduced if I can print more characters (ie all of them four times)(7 6 chars, even works in Befunge 93):

1+:4/,

With newline:

1+:4/,a,

edited Jun 17 '20 at 9:04

Community♦

1

answered Dec 13 '13 at 17:45

Justin

20.3k9 gold badges60 silver badges111 bronze badges

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

4

GolfScript: 17 15 characters

26,{65+...}%+n*

edited Jun 17 '20 at 9:04

Community♦

1

answered Dec 13 '13 at 19:15

manatwork

18.9k4 gold badges41 silver badges75 bronze badges

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

4

C, 46 44 43

46:

i;main(){while(i<104)printf("%c\n",65+i++/4);}

44:

i=260;main(j){for(;(j=i++>>2)<91;puts(&j));}

44 too:

i=260;main(j){while(j=i++>>2,j<91)puts(&j);}

Thanks to @marinus, 43:

i=260;main(j){while(j=i++/4,j<91)puts(&j);}

Should I add a bounty for getting to 42? :)

edited Jun 17 '20 at 9:04

Community♦

1

answered Dec 13 '13 at 22:26

moala

2312 silver badges3 bronze badges

6

\$\begingroup\$ 50 rep. is needed to comment on anything, and you have 101 at the time of posting this comment. \$\endgroup\$ – syb0rg Dec 13 '13 at 22:44
\$\begingroup\$ Great! Thanks! Answer edited! \$\endgroup\$ – moala Dec 14 '13 at 10:39
1

\$\begingroup\$ You can replace >>2 by /4. \$\endgroup\$ – marinus Dec 17 '13 at 2:37

Add a comment |

reblerebel · Accepted Answer · 2013-12-17 19:50:57Z

4

Java: 56

for(int i=0;i<104;)System.out.println((char)(i++/4+65));

edit: changed from 'print' to 'println'

edited Dec 17 '13 at 19:50

answered Dec 15 '13 at 15:28

reblerebel

612 bronze badges

\$\begingroup\$ The output should include newlines after each letter. \$\endgroup\$ – Pierre Arlaud Dec 17 '13 at 14:14
\$\begingroup\$ thanks for pointing that out, it should print a new line each time now \$\endgroup\$ – reblerebel Dec 17 '13 at 19:51
2

\$\begingroup\$ The solution must be complete enough to execute. I should be able to invoke an implementation of the language, paste the code from the answer, and get results, without typing any additional code. i think your solution violates this condition \$\endgroup\$ – user902383 Jul 20 '16 at 11:58
2

\$\begingroup\$ @user902383 If you paste it into JShell (the Java REPL in Java 9) it works, and you don't even need the final semicolon. \$\endgroup\$ – David Conrad Jul 20 '16 at 12:09
\$\begingroup\$ @DavidConrad Its awesome then, I think I might start using REPL/JShell. \$\endgroup\$ – user902383 Jul 20 '16 at 12:13

| Show 1 more comment

Darren Stone · Accepted Answer · 2014-01-11 08:04:30Z

4

Forth, 37

'h 0 [do] [i] 4 / 'A + emit cr [loop]

edited Jan 11 '14 at 8:04

answered Dec 14 '13 at 2:11

Darren Stone

5,1421 gold badge14 silver badges27 bronze badges

\$\begingroup\$ 35 bytes by avoiding +. \$\endgroup\$ – Bubbler Oct 12 '19 at 8:41

Add a comment |

Stupe · Accepted Answer · 2016-07-21 09:03:23Z

4

Actually, 6 bytes

4ú*SÖi

Try it here!

Explanation

4ú*SÖi

4 *         Do 4 times
 ú          Create string of alphabet in lowercase
   S        Sort it
    Ö       Switch Case
     i      Push each character of string

4 Bytes with lowercase and no newline:

4ú*S

answered Jul 21 '16 at 9:03

Stupe

1515 bronze badges

1

\$\begingroup\$ Welcome to PPCG! \$\endgroup\$ – Erik the Outgolfer Jul 21 '16 at 9:56

Add a comment |

meden · Accepted Answer · 2016-07-21 10:56:46Z

16-bit x86 machine code MS-DOS COM, 25 bytes

In hex:

B409BA160189D7B96800F6C1037502FE05CD21E2F5C3400A24

This is a complete MS-DOS .COM program. Copy the byte sequence to the file with .com extension and run it from DOSBox

Disassembly:

00: B4 09        mov    ah,0x09         ;INT 21h "Write string to STDOUT" function
02: BA 16 01     mov    dx,0x116        ;Address of the string s ('$'-terminated)
05: 89 D7        mov    di,dx           ;Because there's no way to dereference address in DX
07: B9 68 00     mov    cx,104          ;CX=26*4
_0000000A:
0A: F6 C1 03     test   cl,0x03         ;When lower two bits are zero...
0D: 75 02        jne    _00000011       ;...do not skip the next instruction
0F: FE 05        inc    b,[di]          ;*s++
_00000011:
11: CD 21        int    21              ;Print the string
13: E2 F5        loop   _0000000A       ;Until --CX==0
15: C3           retn
16: 40           db     0x40            ;s[0], starts with 'A'-1
17: 0A           db     0x0A            ;'\n'
18: 24           db     '$'             ;Terminator required by the print function

Community · Accepted Answer · 2020-06-17 09:04:33Z

4

Jelly, 5 bytes (non-competing?)

ØAx4Y

Try it online!

Explanation:

ØAx4Y Main link
ØA    “ABCDEFGHIJKLMNOPQRSTUVWXYZ”
   4  4
  x   Repeat each element of x y times
    Y Join x with newlines

edited Jun 17 '20 at 9:04

Community♦

1

answered Oct 26 '16 at 17:06

Erik the Outgolfer

39.3k4 gold badges34 silver badges117 bronze badges

Add a comment |

Jo King · Accepted Answer · 2019-01-31 12:20:23Z

4

brainfuck, 48 bytes

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

Try it online!

Prints in lowercase, separated by carriage returns. Uses wrapping 8 bit cells as well as cells left of the origin, though you can prepend a > to counter the latter.

edited Jan 31 '19 at 12:20

answered Jan 31 '19 at 12:06

Jo King♦

43.4k4 gold badges95 silver badges170 bronze badges

\$\begingroup\$ I was about to post a new one, but you managed to completely out-do my best, i got 71 bytes with ++++++[->++>++++>++++++++++<<<]++++>+>++>+++++<[->.<<.>>.<<.>>.<<.>>.+<<.>] \$\endgroup\$ – KrystosTheOverlord Jan 31 '19 at 15:17

Add a comment |

Dom Hastings · Accepted Answer · 2020-06-18 07:05:51Z

4

Perl 5, 20 bytes

print"$_
"x4for A..Z

Try it online!

Perl 5 + `-M5.10.0`, 20 bytes

eval"say;"x4for A..Z

Try it online!

edited Jun 18 '20 at 7:05

answered Dec 13 '13 at 23:47

Dom Hastings

20.2k3 gold badges43 silver badges82 bronze badges

2

\$\begingroup\$ It has never occurred to me to put a literal newline inside a double-quoted string in Perl. +1. \$\endgroup\$ – Mark Reed Dec 14 '13 at 4:44
\$\begingroup\$ I should note, that I didn't either, but @manatwork mentioned it on another answer of mine and it's stuck! \$\endgroup\$ – Dom Hastings Dec 14 '13 at 9:00

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

3

Bash: 24 characters

printf %s\\n {A..Z}{,,,}

edited Jun 17 '20 at 9:04

Community♦

1

answered Dec 13 '13 at 20:39

manatwork

18.9k4 gold badges41 silver badges75 bronze badges

Add a comment |

AShelly · Accepted Answer · 2013-12-14 16:58:13Z

3

BrainF* ,79 60

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

edited Dec 14 '13 at 16:58

answered Dec 14 '13 at 6:02

AShelly

4,3211 gold badge19 silver badges31 bronze badges

4

\$\begingroup\$ +++++++++++++[>+>+++++>++<<<-]>--->>[<.<.>.<.>.<.>.<.>+>-] \$\endgroup\$ – alephalpha Dec 14 '13 at 7:32

Add a comment |

Community · Accepted Answer · 2017-04-13 12:39:13Z

3

AWK, 48

Lets try it with AWK...

END{s=65;for(i=104;i--;s+=0==i%4)printf"%c\n",s}

As suggested by manatwork we can get rid of 2 chars

AWK, 46 (Edit)

END{for(i=104;i--;s+=0==i%4)printf"%c\n",s+65}

AWK,40 (editing MarkReed's code)

END{for(;i<104;){printf"%c\n",i++/4+65}}

edited Apr 13 '17 at 12:39

Community♦

1

answered Dec 14 '13 at 19:27

Wasi

1,7102 gold badges13 silver badges23 bronze badges

\$\begingroup\$ By removing the initialization of variable s you can spare 2 characters: END{for(i=104;i--;s+=0==i%4)printf"%c\n",s+65}. \$\endgroup\$ – manatwork Dec 14 '13 at 20:01
1

\$\begingroup\$ Putting the code in an END block means it requires an input stream (even if it's /dev/null) to work. Does that modify the char count? Anyway, BEGIN{for(;++i<104;){printf"%c\n",i/4+65}} is 5 chars shorter. \$\endgroup\$ – Mark Reed Dec 15 '13 at 2:36
\$\begingroup\$ @MarkReed Your code isn't working. Check this \$\endgroup\$ – Wasi Dec 15 '13 at 9:03
\$\begingroup\$ D'oh. So close! :) But I still don't like the END pattern's requirement for an input stream... \$\endgroup\$ – Mark Reed Dec 15 '13 at 22:00

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

3

PowerShell, 21

65..90|%{,[char]$_*4}

A slightly different approach to Iszi's. And shorter :-)

edited Jun 17 '20 at 9:04

Community♦

1

answered Dec 17 '13 at 7:13

Joey

12.5k1 gold badge40 silver badges70 bronze badges

Add a comment |

supermeerkat · Accepted Answer · 2016-07-21 08:33:48Z

3

C# LINQ ~~115 Bytes~~110 Bytes

Enumerable.Range(65, 26).SelectMany(i => Enumerable.Repeat(i,4))
.ToList().ForEach(i=> Console.WriteLine((char)i));

edited Jul 21 '16 at 8:33

answered Jul 20 '16 at 13:02

supermeerkat

1133 bronze badges

1

\$\begingroup\$ Welcome to PPCG! Nice first post! \$\endgroup\$ – Rɪᴋᴇʀ Jul 20 '16 at 14:09

Add a comment |

Oliver Ni · Accepted Answer · 2016-10-23 04:02:10Z

3

05AB1E, 6 bytes

A4×{S»

Explanation:

A       # Push 'abcdefghijklmnopqrstuvwxyz'
 4×     # Repeat four times
   {    # Sort
    S   # Split into list
     »  # Join by newlines
        # Implicit print

Without newlines, 4 bytes

A4×{

Try it online!

answered Oct 23 '16 at 4:02

Oliver Ni

9,9783 gold badges29 silver badges101 bronze badges

Add a comment |

Mark Reed · Accepted Answer · 2017-08-21 13:13:16Z

3

Perl 6, 32

.say for (('A'..'Z') »xx»4)[*;*]

edited Aug 21 '17 at 13:13

answered Dec 13 '13 at 17:10

Mark Reed

6975 silver badges15 bronze badges

\$\begingroup\$ I think this is the first time that Perl 6 was the first solution I thought of, but the hyperoperator just seemed a natural fit. \$\endgroup\$ – Mark Reed Dec 15 '13 at 4:43

Add a comment |

arekzyla · Accepted Answer · 2018-03-16 15:55:32Z

3

C# (Visual C# Interactive Compiler), 46 bytes

for(var a=259;a++<363;WriteLine((char)(a/4)));

Try it online!

edited Mar 16 '18 at 15:55

answered Mar 16 '18 at 13:15

arekzyla

2111 silver badge3 bronze badges

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

Canvas, 5 bytes

Ｚ４１＊⟳

Try it here!

Explanation:

Code        | Explanation                                  | Stack
------------+----------------------------------------------+------------------------------
Ｚ          | The uppercase alphabet                       | "ABC..."
  ４１＊     | Stretched by 4 horizontally and 1 vertically | "AAAABBBBCCCC..."
        ⟳  | Rotated clockwise                            | "A¶A¶A¶A¶B¶B¶B¶B¶C¶C¶C¶C¶..."
            | Print ToS (implicit)                         |

With ¶ replaced with \n upon printing.

JohnWells · Accepted Answer · 2018-07-10 01:11:26Z

3

Kotlin, 66 59 bytes

Save 7 bytes removing for loop.

fun main(a:Array<String>){repeat(104){println('A'+(it/4))}}

Try it online!

edited Jul 10 '18 at 1:11

answered Jul 9 '18 at 20:54

JohnWells

6513 silver badges7 bronze badges

Add a comment |

640KB · Accepted Answer · 2020-06-18 12:03:19Z

x86-16 ASM, IBM PC DOS, 22 19 bytes

Binary:

00000000: 400a 24b8 1109 8bd6 b168 d0c8 102c cd21  @.$......h...,.!
00000010: e2f8 c3                                  ...

Build with xxd -r and test in DOSBox or your favorite DOS VM.

Unassembled:

40 0A 24    DB   '@', 0AH, '$'      ; the letter + NL + '$' string terminator
B8 0911     MOV  AX, 0911H          ; AH = DOS print string; AL = 0001 0001 bit pattern
8B D6       MOV  DX, SI             ; DX to output string
B1 68       MOV  CL, 26*4           ; Loop 4 times for each letter in alphabet
        ALOOP:
D0 C8       ROR  AL, 1              ; roll repeating bit pattern to the right
10 2C       ADC  BYTE PTR[SI], CH   ; add rightmost bit to ASCII character
CD 21       INT  21H                ; print letter to console
E2 F8       LOOP ALOOP              ; continue looping
C3          RET                     ; return to DOS

Notes:

For most flavors of DOS, we know the values of many CPU registers at the start of execution and we know SI is 0100H, and CH is 0. So by placing the output string in the beginning of the program, [SI] will already be pointing to it. These bytes ('@',0AH,'$') decode to two benign instructions (INC AX, OR AH, [SI]), which have no effect on the program.

AL contains the bit pattern of 0001 0001 which is bit rolled right each time and the rightmost bit added to the ASCII value of the output char in memory.

Community · Accepted Answer · 2020-06-17 09:04:33Z

2

Dc: 35 characters

[rdP10Pr1-d1<p]sp65[5lpx+d91>l]dslx

edited Jun 17 '20 at 9:04

Community♦

1

answered Dec 13 '13 at 20:21

manatwork

18.9k4 gold badges41 silver badges75 bronze badges

Add a comment |

Stack Exchange Network

current community

your communities

more stack exchange communities

Generate alphabet with 4 copies of each letter

89 Answers 89

APL (5)

Python - 37

R, 30 28 27

C, 59

J: 18 13

Ruby, 23

PowerShell: 32 23

Haskell, 46

Befunge 98 - 18

GolfScript: 17 15 characters

C, 46 44 43

Forth, 37

Actually, 6 bytes

16-bit x86 machine code MS-DOS COM, 25 bytes

Jelly, 5 bytes (non-competing?)

brainfuck, 48 bytes

Perl 5, 20 bytes

Perl 5 + `-M5.10.0`, 20 bytes

Bash: 24 characters

PowerShell, 21

05AB1E, 6 bytes

Perl 6, 32

C# (Visual C# Interactive Compiler), 46 bytes

Canvas, 5 bytes

Kotlin, 66 59 bytes

x86-16 ASM, IBM PC DOS, 22 19 bytes

Dc: 35 characters

Your Answer

Not the answer you're looking for? Browse other questions tagged code-golf string kolmogorov-complexity alphabet or ask your own question.

Linked

Hot Network Questions

Generate alphabet with 4 copies of each letter

89 Answers 89

APL (5)

Python - 37

R, 30 28 27

C, 59

J: 18 13

Ruby, 23

PowerShell: 32 23

Haskell, 46

Befunge 98 - 18

GolfScript: 17 15 characters

C, 46 44 43

Forth, 37

Actually, 6 bytes

16-bit x86 machine code MS-DOS COM, 25 bytes

Jelly, 5 bytes (non-competing?)

brainfuck, 48 bytes

Perl 5, 20 bytes

Perl 5 + -M5.10.0, 20 bytes

Bash: 24 characters

PowerShell, 21

05AB1E, 6 bytes

Perl 6, 32

C# (Visual C# Interactive Compiler), 46 bytes

Canvas, 5 bytes

Kotlin, 66 59 bytes

x86-16 ASM, IBM PC DOS, 22 19 bytes

Dc: 35 characters

Your Answer

Sign up or log in

Post as a guest

Not the answer you're looking for? Browse other questions tagged code-golf string kolmogorov-complexity alphabet or ask your own question.

Linked

Related

Hot Network Questions

Perl 5 + `-M5.10.0`, 20 bytes