Compactify the input

Question

Given a word, your task is to compact it by saving its first character and removing any other vowel (aeiou).

Input

Your input can be the word in STDIN, a function argument or any other input format that doesn't break the standard loopholes. You can assume the input only consists of lower characters.

Output

Your output must be the word, compacted.

Examples

i -> i
ate -> at
potato -> ptt
ksboejqfgcrauxpwivtzndlhmy -> ksbjqfgcrxpwvtzndlhmy

Score

This is a code-golf, so shortest answer in bytes wins, good luck!

Makonede · Accepted Answer · 2021-03-27 18:46:36Z

7

05AB1E, 6 bytes

ćsžMм«

Try it online!

Explanation

       Input (e.g.). potato
ć      Head extract. otato, p
 s     Swap        . p, otato
  žM   Vowels      . p, otato, aeiou
    м  Remove      . p, tt
     « Concatenate . ptt

Implicit output    .

edited Mar 27, 2021 at 18:46

Makonede

6,38718 silver badges48 bronze badges

answered Apr 12, 2020 at 13:34

user92069

Add a comment |

the default. · Accepted Answer · 2020-04-12 14:08:56Z

5

Retina, 15 13 8 bytes

0T1,`v`_

Transliterates lowercase vowels into nothing (_) in the 0th in 0-indexing match of the implicit regex that matches the entire string, after index 1 (1,).

Try it online!

edited Apr 12, 2020 at 14:08

answered Apr 12, 2020 at 13:55

the default.

8,4151 gold badge34 silver badges61 bronze badges

Add a comment |

newbie · Accepted Answer · 2020-04-12 15:03:44Z

5

C (gcc), 57 56 52 bytes

Time to roll out some magic numbers!

Thanks @Arnauld for even better magic numbers!

f(char*a,char*b){for(*b++=*a;*b=*++a;)b+=4373%*a&1;}

Try it online!

edited Apr 12, 2020 at 15:03

answered Apr 12, 2020 at 14:22

newbie

1,1504 silver badges19 bronze badges

\$\begingroup\$ so those magic numbers check if something is a vowel? \$\endgroup\$
– Command Master
Apr 12, 2020 at 14:26
\$\begingroup\$ [repost] Yes. I found that by enumerating those constants. \$\endgroup\$
– newbie
Apr 12, 2020 at 14:33
1

\$\begingroup\$ 52 bytes \$\endgroup\$
– Arnauld
Apr 12, 2020 at 15:01
\$\begingroup\$ Thanks! Very nice. @Arnauld \$\endgroup\$
– newbie
Apr 12, 2020 at 15:03

Add a comment |

Jonah · Accepted Answer · 2020-04-12 13:37:34Z

4

J, 15 bytes

{.,'aeiou'-.~}.

Try it online!

Straightforward:

{. head...
, catted with...
'aeiou'-.~ vowels, set minused from...
}. tail

answered Apr 12, 2020 at 13:37

Jonah

32.5k4 gold badges36 silver badges92 bronze badges

Add a comment |

Mitchell Spector · Accepted Answer · 2020-04-12 14:54:40Z

4

sed, 14 bytes

s/\B[aeiou]//g

Try it online!

Bash + Core utilities, 19 bytes

sed s/\\B[aeiou]//g

Try it online!

answered Apr 12, 2020 at 14:54

Mitchell Spector

7,8931 gold badge16 silver badges35 bronze badges

\$\begingroup\$ sed solution is nice. \$\endgroup\$
– Jonah
Apr 12, 2020 at 15:20

Add a comment |

dingledooper · Accepted Answer · 2020-04-12 19:20:35Z

4

Python 2, 43 bytes

Another 43-byte solution in Python.

lambda s:s[0]+s[1:].translate(None,'aeiou')

Try it online!

answered Apr 12, 2020 at 19:20

dingledooper

22.2k1 gold badge33 silver badges119 bronze badges

Add a comment |

Aaron Christiansen · Accepted Answer · 2020-04-13 00:25:25Z

4

Ruby, 31 bytes

->x{x[0]+x[1..].tr('aeiou','')}

Needs to be run on Ruby 2.6 or above, since it uses an endless range.

(TIO is on 2.5.5, so it doesn't work there.)

answered Apr 13, 2020 at 0:25

Aaron Christiansen

1494 bronze badges

Add a comment |

Axuary · Accepted Answer · 2021-03-27 18:32:50Z

4

Excel, 87 bytes

=LET(q,SEQUENCE(LEN(A1)),x,MID(A1,q,1),CONCAT(IF(ISERROR(FIND(x,"aeiou"))+(q=1),x,"")))

Hopefully this link works. Try it here

edited Mar 27, 2021 at 18:32

answered Mar 27, 2021 at 14:46

Axuary

3,4065 silver badges11 bronze badges

1

\$\begingroup\$ Is there an online Excel simulator to run this? My own (outdated) Excel version doesn't seem to have functions like LET or SEQUENCE.... \$\endgroup\$
– Dominic van Essen
Mar 27, 2021 at 18:24
1

\$\begingroup\$ Added link. Hopefully, it works. \$\endgroup\$
– Axuary
Mar 27, 2021 at 18:34

Add a comment |

Surculose Sputum · Accepted Answer · 2020-04-12 13:52:39Z

3

Python 3, 44 43 bytes

lambda a,*s:[a]+[c[c in"aeiou":]for c in s]

Try it online!

Input: Characters of the word. E.g f("a", "t", "e")
Output: A list of characters.

edited Apr 12, 2020 at 13:52

answered Apr 12, 2020 at 13:44

Surculose Sputum

8,3331 gold badge12 silver badges40 bronze badges

1

\$\begingroup\$ Alternative 43 bytes using regex \$\endgroup\$
– Command Master
Apr 12, 2020 at 14:15
\$\begingroup\$ @CommandMaster nice! Since the approach is quite different from mine, why don't you post this as a separate answer? \$\endgroup\$
– Surculose Sputum
Apr 12, 2020 at 14:18

Add a comment |

Jonathan Allan · Accepted Answer · 2020-05-17 15:22:17Z

3

Jelly, 6 bytes

Ḣ;ḟØẹ$

Try it online!

How?

Ḣ;ḟØẹ$ - Link: list of characters, W
Ḣ      - head & yield
     $ - last two links as a monad - i.e. f(rest of W)
  ḟ    -   filter discard:
   Øẹ  -     lower-case vowels
 ;     - (head of W) concatenate (f(rest of W))

edited May 17, 2020 at 15:22

answered Apr 12, 2020 at 15:09

Jonathan Allan

102k7 gold badges62 silver badges266 bronze badges

\$\begingroup\$ I just arrived at the exact same solution before noticing this one. I think the one thing worth mentioning in the explanation is that Ḣ mutates the input \$\endgroup\$
– Unrelated String
May 17, 2020 at 5:26
1

\$\begingroup\$ Yep - "head & yield" and "rest of W". \$\endgroup\$
– Jonathan Allan
May 17, 2020 at 15:22

Add a comment |

sporeball · Accepted Answer · 2021-03-27 05:08:22Z

naz, 102 bytes

2x1v2a6m8m1a2x2v4a2x3v4a2x4v6a2x5v6a2x6v1x1f1r3x1v2e3x2v1e3x3v1e3x4v1e3x5v1e3x6v1e1o1f0x1x2f0a0x1r1o1f

Works for any null-terminated input string.

Try it online!

Explanation (with 0x instructions removed)

2x1v                                           # Set variable 1 equal to 0
2a6m8m1a2x2v                                   # Set variable 2 equal to 97 ("a")
4a2x3v                                         # Set variable 3 equal to 101 ("e")
4a2x4v                                         # Set variable 4 equal to 105 ("i")
6a2x5v                                         # Set variable 5 equal to 111 ("o")
6a2x6v                                         # Set variable 6 equal to 117 ("u")
1x1f                                           # Function 1
    1r                                         # Read a byte of input
      3x1v2e                                   # Goto function 2 if it equals variable 1
            3x2v1e3x3v1e3x4v1e3x5v1e3x6v1e     # Jump back to the start of the function
                                               # if it equals variable 2, 3, 4, 5, or 6
                                          1o1f # Otherwise, output it, then call the
                                               # function again
1x2f                                           # Function 2
    0a                                         # Add 0 to the register
1r1o                                           # Output the first byte of input
1f                                             # Call function 1

score 2 · Accepted Answer · 2020-04-12 14:01:52Z

2

Erlang (escript), 26 bytes

f([H|T])->[H]++T--"aeiou".

Try it online!

Explanation

f([H|T])->       % Match the head & tail of the input string.
[H]              % Wrap the head in a list,
   ++T           % Append the tail
      --"aeiou". % with all vowels removed.

edited Apr 12, 2020 at 14:01

answered Apr 12, 2020 at 13:50

user92069

Add a comment |

Uriel · Accepted Answer · 2020-04-12 14:04:48Z

2

APL (Dyalog), 14 bytes

⊃,'aieou'~⍨1∘↓

Try it online!

answered Apr 12, 2020 at 14:04

Uriel

13.1k4 gold badges16 silver badges44 bronze badges

Add a comment |

ovs · Accepted Answer · 2020-04-12 18:49:59Z

2

Haskell, 34 bytes

f(a:s)=a:[x|x<-s,notElem x"aeiou"]

Try it online!

answered Apr 12, 2020 at 18:49

ovs

57.8k3 gold badges42 silver badges152 bronze badges

1

\$\begingroup\$ You can do all(/=x) for notElem x. \$\endgroup\$
– xnor
Apr 13, 2020 at 21:26

Add a comment |

Xcali · Accepted Answer · 2020-04-13 20:13:34Z

2

Perl 5 `-p`, 18 bytes

s/(?<!^)[aeiou]//g

Try it online!

edited Apr 13, 2020 at 20:13

answered Apr 13, 2020 at 19:32

Xcali

13.2k2 gold badges14 silver badges35 bronze badges

\$\begingroup\$ Hey, came up with prety much the same! You can remove < from the lookbehind for one, or if you use the regex as the arg to -F you can have a 5 byte solution: Try it online! \$\endgroup\$
– Dom Hastings
May 1, 2020 at 9:09

Add a comment |

jimfan · Accepted Answer · 2020-04-14 15:36:46Z

2

APL (NARS2000 0.5.13.0), 20 unicode char (so 20 byte or 40 byte?)

(↑,((~∘'aeiou')1∘↓))

Sample output:

      (↑,((~∘'aeiou')1∘↓)) 'i'
i
      (↑,((~∘'aeiou')1∘↓)) 'ate'
at
      (↑,((~∘'aeiou')1∘↓)) 'potato'
ptt
      (↑,((~∘'aeiou')1∘↓)) 'ksboejqfgcrauxpwivtzndlhmy' 
ksbjqfgcrxpwvtzndlhmy
      (↑,((~∘'aeiou')1∘↓)) ''

Thanks to the tacit feature added lately.

Since APL code chars are unicode chars, I am not sure if one char should be counted as two byte or not.

answered Apr 14, 2020 at 15:36

jimfan

915 bronze badges

1

\$\begingroup\$ I think those are 28 UTF8-bytes. \$\endgroup\$
– Jonathan Frech
May 18, 2020 at 23:53

Add a comment |

Kaddath · Accepted Answer · 2020-04-14 15:45:59Z

2

PHP, 41 bytes

<?=preg_replace("/\\B[aeiou]/","",$argn);

Try it online!

I wanted to find an original solution but it ends up like everyone's regex.. Deception is my middle name

answered Apr 14, 2020 at 15:45

Kaddath

2,8373 silver badges9 bronze badges

Add a comment |

Elgirhath · Accepted Answer · 2020-04-23 15:30:32Z

2

PowerShell, 33 30 bytes

-3 bytes thanks to @CommandMaster

$args-split"(.)[aeiou]"-join''

Try it online!

edited Apr 23, 2020 at 15:30

answered Apr 23, 2020 at 14:55

Elgirhath

7405 silver badges11 bronze badges

\$\begingroup\$ never used powershell, but $args-split"(.)[aeiou]"-join'' seems to work for -3 \$\endgroup\$
– Command Master
Apr 23, 2020 at 15:22
\$\begingroup\$ @CommandMaster wow, wouldn't expect that to work, thank you ;) \$\endgroup\$
– Elgirhath
Apr 23, 2020 at 15:27
\$\begingroup\$ ? Try it online! \$\endgroup\$
– mazzy
Apr 24, 2020 at 4:57
1

\$\begingroup\$ @mazzy 24 bytes: $args-replace'\B[aeiou]' \$\endgroup\$
– Command Master
Apr 24, 2020 at 5:22

Add a comment |

Unrelated String · Accepted Answer · 2020-05-18 23:46:13Z

2

Brachylog, 7 bytes

h|b;Ḅ∋ᵛ

Try it online!

Generator.

 |         The output is
h          the first element of the input,
 |         or
     ∋ᵛ    some shared element of
 |b        the input without its first element
   ;Ḅ      and the lowercase consonants.

answered May 18, 2020 at 23:46

Unrelated String

20.3k3 gold badges28 silver badges53 bronze badges

Add a comment |

chunes · Accepted Answer · 2021-03-27 23:38:50Z

Factor, 31 bytes

[ 1 cut "aeiou"without append ]

Try it online!

Explanation

It's a quotation (anonymous function) that takes one string as input and leaves one string as output. Assuming "potato" is on top of the data stack when this quotation is called...

1 Push one to the data stack. Stack: "potato" 1
cut Cut a sequence into two pieces at a given index. Stack: "p" "otato"
"aeiou" Push a string to the data stack. Stack: "p" "otato" "aeiou"
without Remove elements from NOS (next on stack) that are in TOS (top of stack). Stack: "p" "tt"
append Concatenate two strings. Stack: "ptt"

Galen Ivanov · Accepted Answer · 2020-04-12 13:43:34Z

1

Red, 33 bytes

func[s][trim/with next s"aeiou"s]

Try it online!

answered Apr 12, 2020 at 13:43

Galen Ivanov

21k3 gold badges22 silver badges61 bronze badges

Add a comment |

Galen Ivanov · Accepted Answer · 2020-04-12 18:29:47Z

1

K (oK), 20 bytes

{(*x),(1_x)^"aoeiu"}

Try it online!

answered Apr 12, 2020 at 18:29

Galen Ivanov

21k3 gold badges22 silver badges61 bronze badges

Add a comment |

Param Siddharth · Accepted Answer · 2020-04-12 19:12:20Z

1

Python 3, 61 bytes

lambda s:s[0]+''.join(filter(lambda x:x not in'aeiou',s[1:]))

Try it online!

edited Apr 12, 2020 at 19:12

answered Apr 12, 2020 at 19:03

Param Siddharth

1115 bronze badges

1

\$\begingroup\$ Welcome to the site. This repeats the first character if it is a consonant. You should change the s to s[1:] to prevent this. \$\endgroup\$
– Wheat Wizard ♦
Apr 12, 2020 at 19:09
\$\begingroup\$ @AdHocGarfHunter Thank you! :) \$\endgroup\$
– Param Siddharth
Apr 12, 2020 at 19:12

Add a comment |

Noodle9 · Accepted Answer · 2020-04-12 19:23:45Z

1

Python 3, ⁵⁷ 55 bytes

Saved 2 bytes thanks to ovs!!!

lambda s:s[0]+''.join(c for c in s[1:]if{c}-{*'aeiou'})

Try it online!

edited Apr 12, 2020 at 19:23

answered Apr 12, 2020 at 13:43

Noodle9

19.8k3 gold badges19 silver badges45 bronze badges

\$\begingroup\$ if c not in'aeiou' can be 2 bytes shorter with set difference: if{c}-{*'aeiou'} \$\endgroup\$
– ovs
Apr 12, 2020 at 18:41
\$\begingroup\$ @ovs That's clever - thanks! :-) \$\endgroup\$
– Noodle9
Apr 12, 2020 at 19:24

Add a comment |

Neil · Accepted Answer · 2020-04-12 22:02:13Z

1

Charcoal, 12 bytes

ΦＳ¬∧κ№aeiouι

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

 Ｓ              Input string
Φ ¬             Exclude characters where
     №aeiouι    Character is a vowel
   ∧κ           And index is not zero
                Implicitly print

answered Apr 12, 2020 at 22:02

Neil

163k12 gold badges69 silver badges271 bronze badges

Add a comment |

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

1

JavaScript (ES6), 27 26 bytes

Saved 1 byte thanks to @Neil

Returns a list of characters.

s=>s.match(/^.|[^aeiou]/g)

Try it online!

edited Jun 17, 2020 at 9:04

CommunityBot

1

answered Apr 12, 2020 at 14:38

Arnauld

186k18 gold badges171 silver badges626 bronze badges

1

\$\begingroup\$ Why not use ^ instead of \b? \$\endgroup\$
– Neil
Apr 12, 2020 at 21:58
\$\begingroup\$ @Neil I saw your comment a while ago and forgot about it. Thanks! \$\endgroup\$
– Arnauld
Apr 13, 2020 at 22:34
\$\begingroup\$ Is this valid? An array of characters isn't the same thing as a string, in JavaScript. \$\endgroup\$
– Steve Bennett
May 1, 2020 at 9:57

Add a comment |

score 1 · Accepted Answer · 2020-05-01 08:48:08Z

1

Keg `-ir`, 34 16 bytes

Huge saving thanks to Lyxal.

,(:⅍`aeiou`-[,|_

Try it online!

edited May 1, 2020 at 8:48

answered Apr 13, 2020 at 0:37

user92069

\$\begingroup\$ 16 bytes with -ir and some other shenanigans. \$\endgroup\$
– lyxal
May 1, 2020 at 8:38

Add a comment |

Mukundan314 · Accepted Answer · 2020-05-17 17:56:07Z

1

Pyth, 12 bytes

+hQ-tQ"aeiou

Explanation

+hQ-tQ"aeiou
    tQ        : Everything except first element of evaluated input
   -  "aeiou  : Remove all occurrences of a, e, i, o and u from the string
+hQ           : Prepend first element of evaluated input

Try it online!

answered May 17, 2020 at 17:56

Mukundan314

7,3791 gold badge11 silver badges46 bronze badges

Add a comment |

Kirill L. · Accepted Answer · 2020-05-18 08:36:34Z

1

Ruby `-p`, 22 19 bytes

gsub /\B[aeiou]/,''

Try it online!

Thanks to Command Master for -3 bytes.

edited May 18, 2020 at 8:36

answered May 17, 2020 at 18:14

Kirill L.

13.4k2 gold badges14 silver badges48 bronze badges

\$\begingroup\$ 19 chars: gsub /\B[aeiou]/,'' \$\endgroup\$
– Command Master
May 18, 2020 at 8:16

Add a comment |

Yaroslav Gaponov · Accepted Answer · 2020-05-18 14:57:57Z

1

JavaScript (V8), 42 bytes

s=>s[0]+s.substr(1).replace(/[aeiou]/g,'')

Try it online!

answered May 18, 2020 at 14:57

Yaroslav Gaponov

4312 silver badges8 bronze badges

\$\begingroup\$ Replace substr with slice to save 1 byte \$\endgroup\$
– RezNesX
Nov 16, 2020 at 8:12

Add a comment |

Compactify the input

Input

Output

Examples

Score

37 Answers 37

05AB1E, 6 bytes

Explanation

Retina, 15 13 8 bytes

C (gcc), 57 56 52 bytes

J, 15 bytes

sed, 14 bytes

Bash + Core utilities, 19 bytes

Python 2, 43 bytes

Ruby, 31 bytes

Excel, 87 bytes

Python 3, 44 43 bytes

Jelly, 6 bytes

How?

naz, 102 bytes

Erlang (escript), 26 bytes

Explanation

APL (Dyalog), 14 bytes

Haskell, 34 bytes

Perl 5 -p, 18 bytes

PHP, 41 bytes

PowerShell, 33 30 bytes

Brachylog, 7 bytes

Factor, 31 bytes

Explanation

Red, 33 bytes

K (oK), 20 bytes

Python 3, 61 bytes

Python 3, 57 55 bytes

Charcoal, 12 bytes

JavaScript (ES6), 27 26 bytes

Keg -ir, 34 16 bytes

Pyth, 12 bytes

Explanation

Ruby -p, 22 19 bytes

JavaScript (V8), 42 bytes

Your Answer

Sign up or log in

Post as a guest

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

Related

Hot Network Questions

Perl 5 `-p`, 18 bytes

Python 3, ⁵⁷ 55 bytes

Keg `-ir`, 34 16 bytes

Ruby `-p`, 22 19 bytes

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