Letters challenge

Question

Using the word “conemon” print each character 2 times more than the last. The first letter, “c”, should be printed 10 times, the second 12 and so on. Each repeated-letter-string should be printed on a new line.

So the end-result becomes:

cccccccccc
oooooooooooo
nnnnnnnnnnnnnn
eeeeeeeeeeeeeeee
mmmmmmmmmmmmmmmmmm
oooooooooooooooooooo
nnnnnnnnnnnnnnnnnnnnnn

Answer 1

Stax, 12 bytes

ü¡│\½◙S·«═▓╞

Run and debug it

Unpacked, ungolfed, and commented, it looks like this.

`Mwys-` compressed literal "conemon"
m       for each character output the result after running the rest of the program
 ]      wrap in singleton array
 iHA+   `2 * i + 10` where i is the 0-based iteration index
 *      repeat array

Run this one

Answer 2

Z80Golf, 35 31 bytes

00000000: 2118 0016 0a42 7efe 0028 0cff 10f8 3e0a  !....B~..(....>.
00000010: ff23 1414 4218 ef76 636f 6e65 6d6f 6e    .#..B..vconemon

Try it online!

Assembly:

ld hl,str
ld d, 10
ld b, d
loop:
	ld a,(hl)
	cp 0
	jr z, hlt
	rst 38h; putchar
	djnz loop
ld a, 10; newline
rst 38h
inc hl
inc d
inc d
ld b, d
jr loop
hlt:
	halt
str:
	db 'conemon'

-4 bytes changed call 8000h to rst 38h

Answer 3

[PHP], 76 bytes

$i=8;foreach(str_split("conemon") as $k){$i+=2;echo str_repeat($k,$i)."\n";}

Try it online

Answer 4

Z80Golf, 23 bytes

00000000: 0907 060d 0507 0676 1a3c 473c 127e ee68  .......v.<G<.~.h
00000010: ff10 fd3e 0a23 e5                        ...>.#.

Try it online!

Disassembly

start:
  add hl, bc ; db ('c'^$68)-2
  rlca       ; db 'o'^$68
  ld b, $0d  ; db 'n'^$68
             ; db 'e'^$68
  dec b      ; db 'm'^$68
  rlca       ; db 'o'^$68
  ld b, $76  ; db 'n'^$68
             ; halt

  ld a, (de) ; manipulate the byte at address 0
  inc a
  ld b, a    ; loop count
  inc a
  ld (de), a ; save +2 of previous

  ld a, (hl)
  xor $68    ; the char to print
loop:
  rst $38    ; print it `b` times
  djnz loop

  ld a, $0a  ; newline to print
  inc hl     ; string index & return address
  push hl

The Hello World trick strikes again. The first byte is also used to track the loop count.

Answer 5

GolfScript, 26 bytes

7:a;"conemon"{{.}a)):a*n}%

Try it online!

I'm surprised nobody else has done a solution in this language by now. However, I won't be surprised when this submission is eventually beaten.

Answer 6

APL(NARS), 19 chars, 38 bytes

⊃'conemon'/¨⍨2×4+⍳7

test:

  ⊃'conemon'/¨⍨2×4+⍳7
cccccccccc            
oooooooooooo          
nnnnnnnnnnnnnn        
eeeeeeeeeeeeeeee      
mmmmmmmmmmmmmmmmmm    
oooooooooooooooooooo  
nnnnnnnnnnnnnnnnnnnnnn

Answer 7

Perl 6, 36 34 bytes

-2 bytes thanks to nwellnhof

("conemon".comb Zx(5..*X*2))>>.say

Try it online!

Explanation:

 "conemon".comb                     # Get conemon as a list of characters
                   5..*             # A lazy list from 5 to infinity
                       X*2          # Multiplied by 2
                                    # This results in the list 10,12,14 etc.
                Zx                  # Zip the two together with the string multiplication operator
                                    # This multiplies each character by 10, 12 etc.
                            >>.say  # Print each line

Answer 8

Perl 5, 33 bytes

conemon=~s/./say$&x(8+2*++$i)/reg

Try it online!

Explanation

         s/ /                /     # Replace
                                g  # each
           .                       # character
       =~                          # in
conemon                            # string "conemon"
                              r    # non-destructively (source is read-only)
                               e   # only for the side effect of
             say                   # printing with newline
                $&                 # the full match (character)
                  x                # repeated
                        ++$i       # 1,2,3,...
                      2*           # 2,4,6,...
                    8+             # 10,12,14,...
                   (        )      # times

Answer 9

Japt, 17 bytes

"conemon"¬Ëp°EÑ+8

Try it online!

---

Japt, 14 bytes

`¬¶n`¬Ëp°EÑ+8

Try it online!

---

Explanation

"conemon"¬Ëp°EÑ+8           Full Program
"conemon"¬                  Split each letter       
          Ëp                Map and repeat  
            °EÑ+8           ((1 + Index) * 2) + 8

Answer 10

JavaScript (Node.js), 56 bytes

[..."conemon"].map((e,i)=>console.log(e.repeat(i*2+10)))

Try it online!

Answer 11

PowerShell, 46 bytes

$i=8;'c','o','n','e','m','o','n'|%{$_*($i+=2)}

# $i=8;foreach($c in [char[]]'conemon'){[string]$c*($i+=2)}

Answer 12

///, 74 bytes

/E/eeee//M/mmm//N/nnnn//O/oooo//;/OOO
NNNnn/cccccccccc
;
EEEE
MMMMMM
OO;NN

Try it online!

Answer 13

Retina, 29 bytes

K`conemon
L$`.
$.(5*_$`)*2*$&

Try it online! Explanation:

K`conemon

Initialise the buffer with the text.

L$`.

Loop over each character and output each substituion on its own line.

$.(5*_$`)*2*$&

Repeat the match (5 + index) * 2 times.

Answer 14

LUA, 67 66 bytes

s="conemon"
l=10
for i in s:gmatch'.'do print(i.rep(i,l))l=l+2 end

Try it online.

Answer 15

Deadfish~, 129 bytes

{{i}}d{c}{{d}i}ic{{i}}i{c}cc{{d}}dc{{i}}{c}cccc{{d}}c{{i}d}i{c}cccccc{{d}i}dc{{i}}d{c}cccccccc{{d}}ic{{i}}i{cc}{{d}}dc{{i}}{cc}cc

Try it online!