Remove odd indices and double the even indices

Question

Your task is simple, just remove the odd indices and double the even indices

Example

the input is Hello, World! and we get indices

H e l l o , _ W o r  l  d  !
1 2 3 4 5 6 7 8 9 10 11 12 13

and remove the odd indices

el,Wrd

Double!

eell,,WWrrdd

and you are done

1-Indexing

Test cases

abcdef => bbddff
umbrella => mmrrllaa
looooooooong text => ooooooooooggttxx
abc => bb
xkcd => kkdd
Hello, World! => eell,,WWrrdd
D => <empty>
KK => KK
Hi => ii
odd_length! => dd__eegghh
<empty> => <empty>

The input can be list if you want.

\$\begingroup\$ Can we use zero-indexed? \$\endgroup\$
– Larry Bagel
Commented Jan 18, 2022 at 16:44 — Larry Bagel, Commented Jan 18, 2022 at 16:44
\$\begingroup\$ @BgilMidol No you can't \$\endgroup\$
– Fmbalbuena
Commented Jan 18, 2022 at 16:45 — Fmbalbuena, Commented Jan 18, 2022 at 16:45
\$\begingroup\$ Can we return as the form of [(n, n), (n, n), ...]? \$\endgroup\$
– Larry Bagel
Commented Jan 18, 2022 at 16:52 — Larry Bagel, Commented Jan 18, 2022 at 16:52
\$\begingroup\$ No, array depth must be 1 \$\endgroup\$
– Fmbalbuena
Commented Jan 18, 2022 at 16:53 — Fmbalbuena, Commented Jan 18, 2022 at 16:53
\$\begingroup\$ Can we assume input is not empty? \$\endgroup\$
– att
Commented Jan 18, 2022 at 21:54 — att, Commented Jan 18, 2022 at 21:54

Fmbalbuena · Accepted Answer · 2022-01-18 17:08:37Z

17

brainfuck, 8 bytes

,,[..,,]

Try it online!

answered Jan 18, 2022 at 17:08

Fmbalbuena

4,2631 gold badge10 silver badges52 bronze badges

2

\$\begingroup\$ That's some elegant procedural programming. \$\endgroup\$
– Jonah
Commented Jan 18, 2022 at 18:02
\$\begingroup\$ ,[,..,] is shorter and it works \$\endgroup\$
– okie
Commented Jan 19, 2022 at 5:42
2

\$\begingroup\$ @okie That prints two trailing zero bytes for inputs of odd length \$\endgroup\$
– ovs
Commented Jan 19, 2022 at 9:18

Add a comment |

xash · Accepted Answer · 2022-01-19 14:34:35Z

11

convey, 8 bytes

-1 thanks to Wheat Wizard!

v2{
0"!}

Try it online!

The 0 and 2 loop around, applying themselves to the input via ! (take), thus duping the element 0 or 2 times.

edited Jan 19, 2022 at 14:34

answered Jan 18, 2022 at 23:39

xash

11.3k1 gold badge14 silver badges39 bronze badges

3

\$\begingroup\$ 8 bytes \$\endgroup\$
– Wheat Wizard ♦
Commented Jan 19, 2022 at 0:18

Add a comment |

Jonah · Accepted Answer · 2022-01-18 17:48:28Z

10

J, 8 bytes

#~0 2$~#

Try it online!

0 2$~# Repeat the pattern 0 2 for the length of the string:
```
Hello, World
020202020202
```
#~ Use that mask to "copy" the characters: zeros get deleted, twos get doubled:
```
eell,,WWrrdd
```

answered Jan 18, 2022 at 17:48

Jonah

33.8k4 gold badges40 silver badges94 bronze badges

Add a comment |

Dominic van Essen · Accepted Answer · 2022-01-19 07:37:26Z

6

R, 35 34 32 bytes

Edit: -1 byte thanks to Giuseppe

function(x)rep(x,`[<-`(x,0:1*2))

Try it online!

edited Jan 19, 2022 at 7:37

answered Jan 19, 2022 at 0:15

Dominic van Essen

36.4k2 gold badges22 silver badges60 bronze badges

\$\begingroup\$ Use !1:0 as the index. \$\endgroup\$
– Giuseppe
Commented Jan 19, 2022 at 0:22
\$\begingroup\$ @Giuseppe - I tried a bit, but couldn't make the "D" test-case work... am I missing something? \$\endgroup\$
– Dominic van Essen
Commented Jan 19, 2022 at 0:27
3

\$\begingroup\$ No, you're right. R has such annoying length-1 special cases. I suppose a minor improvement would be !seq(!x)%%2 then. \$\endgroup\$
– Giuseppe
Commented Jan 19, 2022 at 0:49
\$\begingroup\$ I think you can switch to a newer version of R (I think it's 4.1) and get this down to 25 bytes. (I have no experience in R, and I just saw this trick here...) \$\endgroup\$
– The Thonnu
Commented Dec 3, 2022 at 20:32
\$\begingroup\$ @TheThonnu - You're right, of course, but I (and many of the other R golfers) am generally happy to ignore the function/\ choice if it's just a case of 7-bytes with no other inventiveness. Sometimes using the less-expensive \ notation favours or allows fundamentally different approaches, which makes it worthwhile, but here it would (to me) just feel a little 'cheap' to change it... \$\endgroup\$
– Dominic van Essen
Commented Dec 4, 2022 at 0:27

| Show 1 more comment

hyperneutrino · Accepted Answer · 2022-01-18 16:51:18Z

5

Vyxal, 3 bytes

y2•

Try it Online!

Vyxal has a better built-in for this than Jelly.

y2•     Full Program
y       Uninterleave; push a[::2] and a[1::2]
 2•     Repeat each character twice

answered Jan 18, 2022 at 16:51

hyperneutrino♦

42.6k5 gold badges68 silver badges224 bronze badges

\$\begingroup\$ Taking input as a list of characters allows this to be just yd \$\endgroup\$
– lyxal
Commented Dec 4, 2022 at 0:22

Add a comment |

hyperneutrino · Accepted Answer · 2022-01-18 16:43:39Z

5

Jelly, 4 bytes

Ḋm2Ḥ

Try It Online!

Ḋm2Ḥ    Main Link
Ḋ       Remove the first character
 m2     Return every other character
   Ḥ    Double. This turns ["a", "b"] into ["aa", "bb"], which
        is not the correct format for a Jelly string, but displays
        correctly when printed.

answered Jan 18, 2022 at 16:43

hyperneutrino♦

42.6k5 gold badges68 silver badges224 bronze badges

2

\$\begingroup\$ There really ought to be a builtin for m2 \$\endgroup\$
– pxeger
Commented Jan 18, 2022 at 16:56
1

\$\begingroup\$ Almost a three byte monadic Link by abusing how sparse is implemented TIO :( \$\endgroup\$
– Jonathan Allan
Commented Jan 18, 2022 at 20:52

Add a comment |

pxeger · Accepted Answer · 2022-01-18 16:44:18Z

5

Python, 37 bytes

lambda a:"".join(x*2for x in a[1::2])

Attempt This Online!

answered Jan 18, 2022 at 16:44

pxeger

24.6k4 gold badges53 silver badges141 bronze badges

Add a comment |

Natte · Accepted Answer · 2022-01-18 17:23:17Z

5

Husk, 5 bytes

Ṙ2Ċ2t

Try it online!

Explanation

Ṙ2Ċ2t
    t   drop first char
  Ċ2    take every 2-nd char
Ṙ2      repeat each char 2 times

answered Jan 18, 2022 at 17:23

Natte

1,1395 silver badges9 bronze badges

\$\begingroup\$ Alternative 5-byter: Ṙ¢Θ;2 \$\endgroup\$
– Dominic van Essen
Commented Oct 11, 2022 at 9:35

Add a comment |

ZippyMagician · Accepted Answer · 2022-01-19 13:41:22Z

5

ayr, 9 8 bytes

Using Jonah's J method gets me -1 byte

]#0 2$`#

I have the advantage of #'s args being swapped compared to J, but unfortunately monadic 2-trains are not hooks like in J.
Old answer:

:,_2]/,@:

Try it!

Explained

: is partial application (K-style train)

     ,@:   Zip-self with concatenation
 _2]/      Split into groups of two, take right element
,          Flatten

edited Jan 19, 2022 at 13:41

answered Jan 18, 2022 at 17:20

ZippyMagician

1,6518 silver badges11 bronze badges

Add a comment |

Bubbler · Accepted Answer · 2023-10-17 07:36:57Z

5

Uiua, 7 bytes

▽↯△,0_2

Try it online!

▽↯△,0_2    input: a string
  ↯△,0_2    [0, 2] cycled to the length of the input:
      0_2      [0, 2]
   △,         shape of the input ([length])
  ↯            reshape [0, 2] to the shape [length]
▽           keep; delete chars at 0s and duplicate at 2s

answered Oct 17, 2023 at 7:36

Bubbler

78.4k5 gold badges149 silver badges469 bronze badges

\$\begingroup\$ Nice idea to reshape 0_2 \$\endgroup\$
– noodle person
Commented Mar 19 at 2:12

Add a comment |

l4m2 · Accepted Answer · 2022-01-18 17:20:25Z

4

JavaScript (Node.js), 29 bytes

x=>x.replace(/.(.?)/g,'$1$1')

Try it online!

answered Jan 18, 2022 at 17:20

l4m2

28.4k2 gold badges25 silver badges103 bronze badges

Add a comment |

chunes · Accepted Answer · 2022-01-18 17:58:55Z

4

Factor + `sequences.repeating`, 19 bytes

[ <odds> 2 repeat ]

Get the odd-indexed elements then repeat them twice.

edited Jan 18, 2022 at 17:58

answered Jan 18, 2022 at 16:49

chunes

26.8k3 gold badges24 silver badges53 bronze badges

\$\begingroup\$ @Fmbalbuena I don't understand what you are asking. \$\endgroup\$
– chunes
Commented Jan 18, 2022 at 17:44
5

\$\begingroup\$ @Fmbalbuena Okay, done, but why? \$\endgroup\$
– chunes
Commented Jan 18, 2022 at 17:59

Add a comment |

Engineer Toast · Accepted Answer · 2022-01-20 17:45:55Z

4

Excel, 46 bytes

=CONCAT(REPT(MID(A1,SEQUENCE(2^15,,2,2),1),2))

Input is in cell A1. Output is wherever the formula is.

Working from the inside out:

SEQUENCE(2^15,,2,2) creates an array of even numbers from 2 to 32,768. This is the limit for how many characters can be in a cell so it's the limit of the input.
MID(A1,SEQUENCE(~),1) pulls out all the even-index characters one at a time.
REPT(MID(~),2) doubles all those characters.
CONCAT(REPT(~)) combines them all into a single string.

answered Jan 20, 2022 at 17:45

Engineer Toast

9,5291 gold badge23 silver badges53 bronze badges

\$\begingroup\$ =LET(a,MID(A1,2*ROW(1:16384),1),CONCAT(a&a)) for 44 or =CONCAT(REPT(MID(A1,2*ROW(1:16384),1),2)) for 41 \$\endgroup\$
– Taylor Raine
Commented Jan 20, 2022 at 22:01

Add a comment |

Kevin Cruijssen · Accepted Answer · 2022-01-18 16:50:39Z

3

05AB1E, 4 bytes

ιθºS

I/O as a list of characters.

Try it online or verify all test cases.

Explanation:

ι     # Uninterleave the (implicit) input-list into two parts
      #  e.g. ["a","b","c","d","e","f"] → [["a","c","e"],["b","d","f"]]
 θ    # Only leave the last/second part
      #  → ["b","d","f"]
  º   # Mirror/double each character
      #  → ["bb","dd","ff"]
   S  # Convert the list of strings to a flattened list of characters
      #  → ["b","b","d","d","f","f"]
      # (after which it is output implicitly as result)

answered Jan 18, 2022 at 16:50

Kevin Cruijssen

131k13 gold badges144 silver badges384 bronze badges

\$\begingroup\$ ºS could alternatively also be €D, which duplicates each item while still remaining a flattened list. \$\endgroup\$
– Kevin Cruijssen
Commented Oct 17, 2023 at 13:57

Add a comment |

Neil · Accepted Answer · 2022-01-18 17:51:50Z

3

Retina 0.8.2, 10 bytes

.(.?)
$1$1

Try it online! Link includes test cases. Explanation: Port of @l4m2's JavaScript answer. In Retina 1 you can write 2*$1 for the same byte count.

answered Jan 18, 2022 at 17:51

Neil

177k12 gold badges74 silver badges281 bronze badges

Add a comment |

Neil · Accepted Answer · 2022-01-18 17:54:28Z

3

Charcoal, 8 bytes

⭆Ｓ×ι⊗﹪κ²

Try it online! Link is to verbose version of code. Explanation:

 Ｓ          Input as a string
⭆           Map over characters and join
   ι        Current character
  ×         Repeated by
      κ     Current index
     ﹪      Modulo
       ²    Literal integer `2`
    ⊗       Doubled

answered Jan 18, 2022 at 17:54

Neil

177k12 gold badges74 silver badges281 bronze badges

Add a comment |

Razetime · Accepted Answer · 2022-01-19 03:57:53Z

3

BQN, 9 bytes^SBCS

⊢/˜≠⥊0‿2˙

Run online!

Uses Jonah's J idea.

BQN, 10 bytes^SBCS

2/1⊑˘⌊‿2⊸⥊

Run online!

edited Jan 19, 2022 at 3:57

answered Jan 19, 2022 at 3:50

Razetime

27.4k3 gold badges29 silver badges72 bronze badges

Add a comment |

tsh · Accepted Answer · 2022-01-19 12:06:37Z

3

JavaScript (Node.js), 28 bytes

f=([,y,...z])=>y?y+y+f(z):''

Try it online!

edited Jan 19, 2022 at 12:06

answered Jan 19, 2022 at 7:26

tsh

35.6k2 gold badges34 silver badges129 bronze badges

\$\begingroup\$ 28 \$\endgroup\$
– l4m2
Commented Jan 19, 2022 at 9:06

Add a comment |

Kjetil S · Accepted Answer · 2022-01-21 01:47:19Z

3

Perl 5 -p, 14 bytes

s/.(.?)/$1$1/g

Try it online!

edited Jan 21, 2022 at 1:47

answered Jan 18, 2022 at 18:23

Kjetil S

6,12110 silver badges22 bronze badges

\$\begingroup\$ Uses the -p flag, for those of you not brave enough to click on the link. \$\endgroup\$
– Neil
Commented Jan 20, 2022 at 10:26

Add a comment |

coltim · Accepted Answer · 2022-10-11 12:52:17Z

3

K (ngn/k), 10 bytes

(2*2!!#:)#

Try it online!

(...)# set up a filter/replicate, where the code in (...) is run on the (implicit) input and returns a list of numbers. for each such number, that many copies of the corresponding input item will be returned.
(2*2!!#:) return a sequence like 0 2 0 2 ... 0 2 that matches the length of the input. this removes items at even indices (0-based), and doubles those at odd indices

answered Oct 11, 2022 at 12:52

coltim

6,0937 silver badges13 bronze badges

Add a comment |

Natte · Accepted Answer · 2022-01-18 17:29:28Z

2

Haskell, 23 bytes

f(a:b:c)=b:b:f c
f _=[]

Try it online!

answered Jan 18, 2022 at 17:29

Natte

1,1395 silver badges9 bronze badges

Add a comment |

chunes · Accepted Answer · 2022-01-18 17:40:56Z

2

Red, 53 bytes

func[s][foreach c extract/index s 2 2[prin c prin c]]

Try it online!

extract/index s 2 2 says "get every other element of s starting at index 2" (keeping in mind Red is 1-indexed). Then print each of those elements twice.

answered Jan 18, 2022 at 17:40

chunes

26.8k3 gold badges24 silver badges53 bronze badges

Add a comment |

AShelly · Accepted Answer · 2022-01-18 19:09:19Z

2

C (gcc), 35 bytes

f(char*c){for(;*c++;c++)c[-1]=*c;}

Try it online!

answered Jan 18, 2022 at 19:09

AShelly

4,6711 gold badge22 silver badges38 bronze badges

\$\begingroup\$ 31 bytes \$\endgroup\$
– Noodle9
Commented Jan 18, 2022 at 19:38
\$\begingroup\$ This answer overwrites past the end of the array if its length is odd (unless you're lucky and there are two null bytes in a row), which seems wrong. \$\endgroup\$
– Neil
Commented Jan 20, 2022 at 10:30

Add a comment |

emanresu A · Accepted Answer · 2022-01-18 21:17:54Z

><>, 4 bytes

i#o:

Try it online!

Terminates with an error.

This again?

How?

i     Take an input (instruction pointer (IP) going right)
 #    IP bounces off # and starts going left
i     Take another input
   :  Duplicate it
  o   Output it
 #    IP bounces off # and starts going right
  o   Output again
   :  Duplicate (Useless)

And now, we're back to where we started, at the first character facing right.
The code will continue executing until it terminates with an error when running out of input.

Pedro Maimere · Accepted Answer · 2022-01-19 16:21:42Z

GNU AWK, 35 bytes

BEGIN{RS=".|"}{printf NR%2?e:RT RT}

or

BEGIN{RS=".|";ORS=e}$0=NR%2?e:RT RT

Try it online!

This is possible thanks to the RT variable, only available in GNU AWK. The characters are stored one at a time in RT, and the ternary conditional operator is used to skip the odds and double the even characters.

AWK, 47 bytes

split($0,a,e){for(i in a)printf i%2?e:a[i]a[i]}

Try it online!

Splits the input character by characters into the array a, and does the skip-and-double magic through the ternary operator ?:.

caird coinheringaahin g · Accepted Answer · 2022-01-20 19:12:22Z

2

MATLAB, 25 bytes

@(x)repelem(x(2:2:end),2)

edited Jan 20, 2022 at 19:12

caird coinheringaahin g♦

50.3k11 gold badges128 silver badges354 bronze badges

answered Jan 20, 2022 at 18:47

Poelie

1512 bronze badges

Add a comment |

SilverPhoenix · Accepted Answer · 2022-02-23 17:22:57Z

2

Lua,77 83 bytes

Edited to comply with code golf rules. Assumes at least a space in input because I'm not entirely sure how to make it work with nil input without throwing an error.

p,t=io.read(),{} for i=0,#p,2 do t[i],t[i+1]=string.sub(p,i,i),string.sub(p,i,i)end

Try it online!

edited Feb 23, 2022 at 17:22

answered Feb 23, 2022 at 16:35

SilverPhoenix

412 bronze badges

\$\begingroup\$ Welcome to Code Golf, and nice answer! \$\endgroup\$
– rydwolf
Commented Feb 23, 2022 at 16:36
\$\begingroup\$ Welcome to Code Golf, and nice first answer! Unfortunately, assuming input and output is in a variable in not an accepted method of I/O \$\endgroup\$
– caird coinheringaahin g ♦
Commented Feb 23, 2022 at 17:12
\$\begingroup\$ @cairdcoinheringaahing Should be fixed now \$\endgroup\$
– SilverPhoenix
Commented Feb 23, 2022 at 17:24

Add a comment |

naffetS · Accepted Answer · 2022-12-03 18:06:04Z

2

Fig, \$4\log_{256}(96)\approx\$ 3.292 bytes

eh]y

Try it online!

Explanation

eh]y
   y   Uninterleave the input - return a list like [a[::2], a[1::2]]
  ]    Get the last element (which is a[1::2])
e      Over each character...
 h     Double it

edited Dec 3, 2022 at 18:06

answered Oct 11, 2022 at 22:46

naffetS

12.8k2 gold badges20 silver badges53 bronze badges

\$\begingroup\$ Can you explain it? \$\endgroup\$
– Fmbalbuena
Commented Dec 3, 2022 at 17:55
\$\begingroup\$ @Fmbalbuena Sure, done \$\endgroup\$
– naffetS
Commented Dec 3, 2022 at 18:06

Add a comment |

Fmbalbuena · Accepted Answer · 2022-12-03 23:24:59Z

2

4, 25 bytes

3.72372382352352372372394

Try it online!

answered Dec 3, 2022 at 23:24

Fmbalbuena

4,2631 gold badge10 silver badges52 bronze badges

Add a comment |

The Thonnu · Accepted Answer · 2023-06-28 17:33:16Z

2

Thunno 2, 4 bytes

zt2Ḅ

Attempt This Online!

Explanation

zt2Ḅ  # Implicit input
z     # Uninterleave
 t    # Leave only the tail
  2Ḅ  # Double each character
      # Implicit output

answered Jun 28, 2023 at 17:33

The Thonnu

18.3k3 gold badges16 silver badges74 bronze badges

Add a comment |

Remove odd indices and double the even indices

Example

Test cases

62 Answers 62

brainfuck, 8 bytes

convey, 8 bytes

J, 8 bytes

R, 35 34 32 bytes

Vyxal, 3 bytes

Jelly, 4 bytes

Python, 37 bytes

Husk, 5 bytes

Explanation

ayr, 9 8 bytes

Explained

Uiua, 7 bytes

JavaScript (Node.js), 29 bytes

Factor + sequences.repeating, 19 bytes

Excel, 46 bytes

05AB1E, 4 bytes

Retina 0.8.2, 10 bytes

Charcoal, 8 bytes

BQN, 9 bytesSBCS

BQN, 10 bytesSBCS

JavaScript (Node.js), 28 bytes

Perl 5 -p, 14 bytes

K (ngn/k), 10 bytes

Haskell, 23 bytes

Red, 53 bytes

C (gcc), 35 bytes

><>, 4 bytes

How?

GNU AWK, 35 bytes

AWK, 47 bytes

MATLAB, 25 bytes

Lua,77 83 bytes

Fig, \$4\log_{256}(96)\approx\$ 3.292 bytes

Explanation

4, 25 bytes

Thunno 2, 4 bytes

Explanation

Your Answer

Sign up or log in

Post as a guest

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

Linked

Related

Hot Network Questions

Factor + `sequences.repeating`, 19 bytes

BQN, 9 bytes^SBCS

BQN, 10 bytes^SBCS

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