Skip to main content
added 1 character in body
Source Link
naffetS
  • 13.1k
  • 2
  • 22
  • 54

Haskell, 58 57 bytes

f s|g s<""="shm"++gs>""="shm"++g s|1>0=s g=dropWhile(`notElem`"aeiou")

Attempt This Online!Attempt This Online!

-1 byte thanks to Wheat Wizard ♦

Haskell, 58 57 bytes

f s|g s<""="shm"++g s|1>0=s g=dropWhile(`notElem`"aeiou")

Attempt This Online!

-1 byte thanks to Wheat Wizard ♦

Haskell, 58 57 bytes

f s|g s>""="shm"++g s|1>0=s g=dropWhile(`notElem`"aeiou")

Attempt This Online!

-1 byte thanks to Wheat Wizard ♦

added 48 characters in body
Source Link
naffetS
  • 13.1k
  • 2
  • 22
  • 54

Haskell, 5858 57 bytes

f s|g s==""=s|1>0="shm"++gs<""="shm"++g ss|1>0=s g=dropWhile(`notElem`"aeiou")

Attempt This Online!Attempt This Online!

-1 byte thanks to Wheat Wizard ♦

Haskell, 58 bytes

f s|g s==""=s|1>0="shm"++g s g=dropWhile(`notElem`"aeiou")

Attempt This Online!

Haskell, 58 57 bytes

f s|g s<""="shm"++g s|1>0=s g=dropWhile(`notElem`"aeiou")

Attempt This Online!

-1 byte thanks to Wheat Wizard ♦

Source Link
naffetS
  • 13.1k
  • 2
  • 22
  • 54

Haskell, 58 bytes

f s|g s==""=s|1>0="shm"++g s g=dropWhile(`notElem`"aeiou")

Attempt This Online!