R, (削除) 63 (削除ここまで) (削除) 62 (削除ここまで) 61 bytes
-16 bytes thanks to Giuseppe
-7 more bytes, again, thanks to Giuseppe
-1 byte adding a line break in place of \n
-1 byte thanks to Robin Ryder
for(l in utf8ToInt(scan(,""))-96)cat(letters[l:0],'
',sep="")
R, 86 bytes (my original answer)
x=utf8ToInt(scan(,''));s=sapply;cat(gsub(" .+"," ",s(s(x,`:`,97),intToUtf8)),sep="\n")
Ungolfed:
x=utf8ToInt(scan(,'')) #Takes input, converts to ASCII
s=sapply; #Alias sapply function to save a byte
s(x,`:`,97) #Create vector from 97 to respective ASCII value
s( ,intToUtf8) #Convert to character
gsub(" .+"," ", ) #Removes everything after space
cat( ,sep="\n") #Outputs to console
Could likely be golfed.
NOTE: It does not use recursion. I do not know whether that would be shorter or not. I'll experiment later.
Sumner18
- 1.9k
- 10
- 20