Введение

Рекурсивный акроним это аббревиатура , который содержит или относится к себе, например: Fishможет быть рекурсивный акроним Fish is shiny hero, обратите внимание , как это также содержит саму аббревиатуру. Другой пример Hi-> Hi igloo. Или даже ppcg paints->ppcg paints cool galaxies pouring acid into night time stars

Таким образом, предложение представляет собой рекурсивную аббревиатуру, если первые буквы каждого слова обозначают первое слово или слова.

Вызов

Создайте программу, которая принимает строку из 1 или более слов, разделенных пробелом, и выводит рекурсивный акроним или пустую строку, если это невозможно. Невозможно создать рекурсивную аббревиатуру для строки, например, ppcg elephantпотому что вы начнете с того, что берете pиз, ppcgзатем добавляете это в аббревиатуру, затем берете eиз elephant. Но теперь у нас есть противоречие, поскольку в настоящее время в аббревиатуре говорится «pe ..», что противоречит «pp ..». Это также касается, например hi,. Вы бы взяли hот hi, но предложение теперь закончилось, и больше нет букв для расшифровки, hiи у нас осталось только то, hчто не соответствуетhi, (Строка нуждается в количестве слов, превышающем или равном количеству букв в аббревиатуре)

Вход и выход не чувствительны к регистру

ограничения

• Все, что введено в вашу программу, будет действительным английским словом. Но вы также должны убедиться, что вы выводите правильные английские слова (вы можете использовать базу данных или просто сохранить слово для каждой из 26 букв)
• Применяются стандартные лазейки и правила ввода / вывода по умолчанию

Тестовые случаи

hi igloo -> hi
ppcg paints -> (impossible)
ppcg paints cool giraffes -> ppcg
ppcg paints cool galaxies pouring acid into night time stars -> ppcgpaints
ppcg paints cool galaxies pouring acid into night time -> ppcg
ppcg questions professional pool challengers greatly -> (impossible)
I -> I

счет

Это код-гольф , поэтому выигрывает самый маленький исходный код в байтах

Japt , 13 байт

¸
mά
VøUÎ ©V

Попробуйте онлайн!

05AB1E , 16 байтов

ð¡©ηʒJ®€нJηså}θJ

Попробуйте онлайн!

Haskell, 51 48 байтов

Изменить: -3 байта благодаря @xnor.

(\w->[r|p<-scanl1(++)w,map(!!0)w==p,r<-p]).words

Находит аббревиатуру.

Попробуйте онлайн!

\w->            .words -- let 'w' be the input list split into words
   p<-scanl1(++)w      -- loop 'p' through the list starting with the first word
                       --  and appending the next words one by one, e.g.
                       --  "Fish","is","shiny","hero" -> "Fish","Fishis","Fishisshiny","Fishisshinyhero"
     ,map(!!0)w==p     -- if the word made out of the first characters of the
                       --  words of 'w' equal 'p'
  [r|   r<-p]          -- return the letters of 'p' - if the check before
                       --  never evaluates to True then no letters, i.e. the
                       --  the empty string is returned

Perl 6 , 50 42 58 49 байтов

-9 байт благодаря nwellnhof

{~first {m:g/<<./.join~~/^$^a/},[R,] [\~] .words}

Попробуйте онлайн!

Первый вариант Я использую тот факт, что ordединственное возвращает порядковое значение первой буквы строки, в то время как chrsпринимает список ордеров и возвращает строку. Или регулярное выражение из ответа Moonheart короче :(. Для справки, предыдущий ответ был .words>>.ord.chrsвместо[~] m:g/<<./

Объяснение:

{~first {m:g/<<./.join~~/^$^a/},[R,] [\~] .words}
{                                               } # Anonymous code block
  first  # Find the first 
                                [R,] [\~] .words  # Of the reverse of the triangular joined words
         {                    }  # That matches:
          m:g/   /   # Match all from the original string
              <<.    # Single letters after a word boundary
                  .join    # Joined
                       ~~/^$^a/   # And starts with the given word
 ~  # And stringify Nil to an empty string

Сетчатка 0.8.2 , 60 байт

^
$'¶
\G(\w)\w* ?
$1
+`^(.+)(\w.*¶\1 )
$1 $2
!`^(.+)(?=¶\1 )

Попробуйте онлайн! Находит рекурсивное сокращение, если оно есть. Объяснение:

^
$'¶

Дублируйте ввод.

\G(\w)\w* ?
$1

Сократите слова в первой строке до их начальных букв.

+`^(.+)(\w.*¶\1 )
$1 $2

Вставьте пробелы, чтобы соответствовать оригинальным словам, если это возможно.

!`^(.+)(?=¶\1 )

Выведите первую строку, если это префикс второй строки.

Perl 6 , 56 байт

$!=[~] m:g{<<.};say $! if m:g{<<\w+}.map({$_ eq $!}).any

Попробуйте онлайн!

Ранее регулярные выражения были смущающими и непригодными для меня. Внезапно я их прекрасно понимаю. Что случилось со мной: P

Выполняет выбор 1.

K (нгн / к) , 40 байтов

Первый вариант:

{$[1=#:x;x;$[(*:t)~,/*:'t:" "\x;*:t;`]]}

Попробуйте онлайн!

Rust, 155, попробуйте онлайн!

Выбранный: проблема 1: поиск аббревиатуры

type S=String;fn f(t:&str)->S{let l=t.to_lowercase();let w=l.split(' ').fold(S::new(),|a,b|a+&b[..1])+" ";if (l+" ").contains(w.as_str()){w}else{S::new()}}

Немного, немного:

fn f(t: &str) -> String {
    let l = t.to_lowercase();
    let w = l.split(' ').fold(String::new(), |a, b| a + &b[0..1]) + " ";
    if (l + " ").contains(w.as_str()) {
        w
    } else {
        String::new()
    }
}

Или, если мы можем предположить, что ввод вводится только строчными буквами, просто 130:

type S=String;fn f(l:S)->S{let w=l.split(' ').fold(S::new(),|a,b|a+&b[..1])+" ";if (l+" ").contains(&w.as_str()){w}else{S::new()}}

Желе , 9 байт

Ḳµ;\fZḢWƊ

Полная программа печати рекурсивного сокращения, если это возможно.

Попробуйте онлайн!

Как?

Ḳµ;\fZḢWƊ - Main Link: list of characters
Ḳ         - split at space (let's call this v)
 µ        - start a new monadic chain (i.e. f(v)):
   \      - cumulative reduce v with:
  ;       -   concatenation -> [v(1), v(1);v(2), v(1);v(2);v(3); ...]
        Ɗ - last three links as a monad (i.e. f(v)):
     Z    -   transpose -> [[v(1)[1], v(2)[1], ...],[v(1)[1],v(2)[2],...],...]
      Ḣ   -   head -> [v(1)[1], v(2)[1], ...] ... i.e. 'the potential abbreviation'
       W  -   wrap in a list -> ['the potential abbreviation']
    f     - filter discard those from the left list that are not in the right list
          - implicit print -- a list of length 0 prints nothing
          -                   while a list of a single item prints that item

JavaScript [ES6], 74 байта

s=>s.split` `.map(w=>(b+='('+w,e+=')?',t+=w[0]),b=e=t='')&&t.match(b+e)[0]

Создает регулярное выражение для сопоставления. Смотрите примеры в коде.

Все тестовые случаи:

let f=

s=>s.split` `.map(w=>(b+='('+w,e+=')?',t+=w[0]),b=e=t='')&&t.match(b+e)[0]

console.log(f('hi igloo'))
// 'hi'.match('(hi(igloo)?)?')[0] == 'hi'

console.log(f('ppcg paints'))
// 'pp'.match('(ppcg(paints)?)?')[0] == ''

console.log(f('ppcg paints cool giraffes'))
// 'ppcg'.match('(ppcg(paints(cool(giraffes)?)?)?)?')[0] == 'ppcg'

console.log(f('ppcg paints cool galaxies pouring acid into night time stars'))
// 'ppcgpaints'.match('(ppcg(paints(cool(galaxies(pouring(acid(into(night(time(stars)?)?)?)?)?)?)?)?)?)?')[0] == 'ppcgpaints'

console.log(f('ppcg paints cool galaxies pouring acid into night time'))
// 'ppcgpaint'.match('(ppcg(paints(cool(galaxies(pouring(acid(into(night(time)?)?)?)?)?)?)?)?)?')[0] == 'ppcg'

console.log(f('ppcg questions professional pool challengers greatly'))
// 'pqppcg'.match('(ppcg(questions(professional(pool(challengers(greatly)?)?)?)?)?)?')[0] == ''

console.log(f('I'))
// 'I'.match('(I)?')[0] == 'I'

console.log(f('increase i'))
// 'ii'.match('(increase(i)?)?')[0] == ''

console.log(f('i increase'))
// 'ii'.match('(i(increase)?)?')[0] == 'i'

Python 2 , 106 байт

Первый вариант - поиск рекурсивной аббревиатуры.
Возвращает результат в списке.

I=input().split()
print[' '.join(I[:i])for i in range(1,-~len(I))if[j[0]for j in I]==list(''.join(I[:i]))]

Попробуйте онлайн!

Python 2 , 120 байт

Первый вариант - поиск рекурсивной аббревиатуры.

def F(I,a=[],r=''):
 for j in I.split():
  a+=j,
  if list(''.join(a))==[i[0]for i in I.split()]:r=' '.join(a)
 return r

Попробуйте онлайн!

Javascript, 71 байт

Подход 1

l=s=>{p=s.split(' ');k=p.reduce((r,x)=>r+x[0],'');return k==p[0]?k:''}

Ungolfed:

l=s=>{
    p = s.split(' ');
    k = p.reduce((r,x)=>r+x[0],'');
    return k==p[0] ? k : '';
}

• Разделить строку на пробел.
• Создайте новую строку, взяв первый символ из каждого слова.
• Сравните это с первым словом.

Рубин -apl , 57 байт

$_=y="";$F.all?{|w|$F.map(&:chr).join[/^#{y+=w}/]?$_=y:p}

Попробуйте онлайн!

Python 2 , 109 байт

def f(s,J=''.join):s=s.split();return[J(s[:i])for i in range(len(s)+1)if J(zip(*s)[0]).find(J(s[:i]))==0][-1]

Попробуйте онлайн!

Скала, 76 байт

Решение для простого случая (аббревиатуры без пробелов)

def^(s:String)={val l=s.split(" ");if(l(0)==l.map(_(0)).mkString)l(0)else""} 

Scala, 144 байта 100 байтов (см. Решение только по ASCII в комментариях)

def^(s:String)={val l=s.split(" ");l.scanLeft(List[String]())(_:::List(_)).find(_.mkString==l.map(_(0)).mkString).map(_.mkString).getOrElse("")}

Тест в REPL

scala> def^(s:String)={val l=s.split(" ");if(l(0)==l.map(_(0)).mkString)l(0)else""}
$up: (s: String)String

scala> ^("hi igloo")
res12: String = hi

scala> ^("ppcg paints cool giraffes")
res13: String = ppcg

scala> ^("ppcg paints Xcool giraffes")
res14: String = ""

scala> ^("ppcg paints cool galaxies pouring acid into night time stars")
res15: String = ""

scala>

scala> def^(s:String)={val l=s.split(" ");l.scanLeft(List[String]())(_:::List(_)).find(_.mkString==l.map(_(0)).mkString).map(_.mkString).getOrElse("")}
$up: (s: String)String

scala> ^("hi igloo")
res16: String = hi

scala> ^("ppcg paints cool giraffes")
res17: String = ppcg

scala> ^("ppcg paints Xcool giraffes")
res18: String = ""

scala> ^("ppcg paints cool galaxies pouring acid into night time stars")
res19: String = ppcgpaints