Jest to podobne do tworzenia akronimu , ale istnieje kilka kluczowych różnic, w tym metoda pobierania akronimu, a wyzwanie to obejmuje elastyczną produkcję.

Zadanie

Biorąc pod uwagę ciąg znaków (dozwolona jest lista znaków / długość 1 ciągów znaków) zawierający tylko drukowalne ASCII, wypisz na wejściu wszystkie wielkie litery poprzedzone spacją lub myślnikiem albo pierwszy znak na wejściu. Pusty ciąg znaków jest niezdefiniowanym zachowaniem.

Przypadki testowe:

Wyjście może być w formie "TEST", ["T","E","S","T"]albo cokolwiek innego działa dla Ciebie.

Self-contained Underwater Breathing Apparatus
SUBA

a Programming Language
PL

NATO Atlantic TREATY Organization
NATO

DEFCON 2
D

hello, world!


light-Emitting dioDe
E

What Does the Fox Say?
WDFS


3D mov-Ies
I

laugh-Out Lou-D
OLD

Best friends FOREVE-r
BF

--


<space>


--  --a -  - --


--  -- -  - -- A
A

Step-Hen@Gmail-Mail Mail.CoM m
SHMM

To jest golf golfowy , więc wygrywa najkrótsza odpowiedź w bajtach.

V , 7 bajtów

ÍÕü¼À!õ

Wypróbuj online!

Oto zrzut heksowy, który potwierdza liczbę bajtów:

00000000: cdd5 fcbc c021 f5                        .....!.

Wyjaśnienie:

Í       " Search and replace all occurrences on all lines:
        " (Search for)
 Õ      "   A non-uppercase letter [^A-Z]
  ü     "   OR
      õ "   An uppercase letter
    À!  "   Not preceded by...
   ¼    "   A word-boundary
        " (implicitly) And replace it with:
        "   Nothing

Jest to krótki wszystko dzięki wspaniałej V za kompresji regex .

R , 66 63 bajtów

function(s)(s=substr(strsplit(s,' |-')[[1]],1,1))[s%in%LETTERS]

Wypróbuj online!

-3 bajty dzięki Scarabee

Anonimowa funkcja; zwraca akronim jako wektor, c("N","A","T","O")który jest drukowany domyślnie.

Tym razem nie jest tak źle w R! dzieli na -lub (space)bierze pierwszy element każdego z nich, a następnie zwraca dowolne, które są wielkimi literami ( LETTERSjest to wbudowane R z dużymi literami), w kolejności.

Python 2 , 59 56 bajtów

^{-3 bajty dzięki Lynn}

lambda s:[b for a,b in zip(' '+s,s)if'@'<b<'['>a in' -']

Wypróbuj online!

Javascript 21 bajtów

Pobiera dane wejściowe i wyświetla tablicę ciągów zawierających znaki akronimowe

x=>x.match(/\b[A-Z]/g)

Wyjaśnienie

To tylko globalne dopasowanie wyrażenia regularnego dla granicy słowa, po której następuje wielka litera.

Retina , 21 17 bajtów

!`(?<=^| |-)[A-Z]

Wypróbuj online!

Wyjaśnienie

Wyświetla dopasowania wyrażenia regularnego (?<=^| |-)[A-Z]na wejściu, po jednym w wierszu ( !).

Dyalog APL, 29 23 bajtów

Dodatkowy przypadek testowy: język programowania (APL).

'(?<=^| |-)[A-Z]'⎕S'&'⊢

Zwraca tablicę znaków (pokazuje jako przestrzeń oddzieloną w TIO).

Wypróbuj online!

Starszy post, 29 bajtów

{(⎕AV~⎕A)~⍨'(\w)\w+'⎕R'\1'⊢⍵}

Wypróbuj online!

W jaki sposób?

'(\w)\w+'⎕R - zastąp każdą grupę znaków alfabetycznych

    '\1' - ze swoją pierwszą postacią

~⍨ - usuń każdy znak

    (⎕AV~⎕A) - to nie jest duża litera ASCII

Python, 53 bajty

import re
lambda s:re.findall("(?<=[ -])[A-Z]"," "+s)

Wypróbuj online!

Proste wyrażenie regularne z wyczekiwaniem miejsca lub myślnika. Zamiast dopasowywać początek, wstaw spację.

C #, 84 78 bajtów

using System.Linq;s=>s.Where((c,i)=>c>64&c<91&(i>0?s[i-1]==32|s[i-1]==45:1>0))

Zaoszczędź 6 bajtów dzięki @jkelm .

Wypróbuj online!

Pełna / sformatowana wersja:

using System.Collections.Generic;
using System.Linq;

class P
{
    static void Main()
    {
        System.Func<string, IEnumerable<char>> f = s => s.Where((c, i) => c > 64 & c < 91 & (i > 0 ? s[i-1] == 32 | s[i-1] == 45: 1 > 0));

        System.Console.WriteLine(string.Concat(f("Self-contained Underwater Breathing Apparatus")));
        System.Console.WriteLine(string.Concat(f("a Programming Language")));
        System.Console.WriteLine(string.Concat(f("NATO Atlantic TREATY Organization")));
        System.Console.WriteLine(string.Concat(f("DEFCON 2")));
        System.Console.WriteLine(string.Concat(f("hello, world!")));
        System.Console.WriteLine(string.Concat(f("light-Emitting dioDe")));
        System.Console.WriteLine(string.Concat(f("What Does the Fox Say?")));
        System.Console.WriteLine(string.Concat(f("3D mov-Ies")));
        System.Console.WriteLine(string.Concat(f("laugh-Out Lou-D")));
        System.Console.WriteLine(string.Concat(f("Best friends FOREVE-r")));
        System.Console.WriteLine(string.Concat(f(" ")));
        System.Console.WriteLine(string.Concat(f("--  --a -  - --")));
        System.Console.WriteLine(string.Concat(f("--  -- -  - -- A")));

        System.Console.ReadLine();
    }
}

Julia 0.6.0 (57 bajtów)

s=split(s,r" |-");for w∈s isupper(w[1])&&print(w[1])end

Objaśnienie: To mój pierwszy golf. Całkiem prosto. Podziel słowa, wydrukuj pierwszą pierwszą literę każdego z nich.

Prawdopodobnie łatwo to zrobić lepiej, używając wyrażenia regularnego, ale jestem nowy

05AB1E , 11 bajtów

'-ð‡ð¡ζнAuÃ

Wypróbuj online!

C # (.NET Core) , 108 bajtów

n=>{var j="";n=' '+n;for(int i=0;++i<n.Length;)if(" -".IndexOf(n[i-1])>=0&n[i]>64&n[i]<91)j+=n[i];return j;}

Wypróbuj online!

Galaretka ,  11  10 bajtów

-1 bajt dzięki Erikowi Outgolfer ( Ḳdzieli się na spacje> _ <)

⁾- yḲḢ€fØA

Monadyczny link pobierający i zwracający listy znaków.
Jako pełny program przyjmuje ciąg znaków i wypisuje wynik.

Wypróbuj online! lub zobacz zestaw testowy .

W jaki sposób?

⁾- yḲḢ€fØA - Link: list of characters, x       e.g. "Pro-Am Code-golf Association"
   y       - translate x with:
⁾-         -   literal list of characters ['-',' '] "Pro Am Code golf Association"
    Ḳ      - split at spaces               ["Pro","Am","Code","golf","Association"]
     Ḣ€    - head each (1st character of each)      "PACgA"
        ØA - yield uppercase alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
       f   - filter keep                            "PACA"
           - if running as a full program: implicit print

Perl 5 , 25 bajtów

24 bajtowy kod + 1 dla -n.

Irytujące, że grep -Pobsługuje spojrzenie o zmiennej długości, ale Perl nie :(.

print/(?:^| |-)([A-Z])/g

-1 bajt dzięki @Dada !

Wypróbuj online! - obejmuje -luruchomienie wszystkich testów jednocześnie.

MATL , 19 bajtów

'- 'X{&Yb'^[A-Z]'XX

Wypróbuj online!

Brachylog , 25 23 22 bajtów

,Ṣ↻s₂ᶠ{h∈" -"&t.∧Ạụ∋}ˢ

Wypróbuj online!

(-2 bajty dzięki @Fatalize.)

,Ṣ↻                      % prepend a space to input
   s₂ᶠ                   % get all substrings of length 2 from that, to get prefix-character pairs
      {              }ˢ  % get the successful outputs from this predicate: 
       h∈" -"              % the prefix is - or space
               &t.∧        % then the character is the output of this predicate if:
                  Ạụ∋        % the alphabet uppercased contains the character

Japt , 19 16 14 bajtów

-2 bajty dzięki Shaggy

f/^| |-)\A/ mÌ

Wypróbuj online!

Swift 5 , 110 bajtów

-5 dzięki Cœur

import UIKit
func f(s:[String]){for i in zip(s,[" "]+s){if i.0.isUppercase()&&"- ".contains(i.1){print(i.0)}}}

Szczegółowe wyjaśnienie

• import Foundation- Importuje Foundationniezbędny moduł zip(), główny element tego kodu.

• func f(s:[String]){...}- Tworzy funkcję z parametrem s, czyli listą ciągów znaków reprezentujących znaki wejścia.

• for i in zip(s,[" "]+s){...}- Iteruje za ipomocą zipu wejścia i wejścia z spacją dodaną na początku, co jest bardzo pomocne w uzyskaniu poprzedniego znaku w ciągu.

• if - Sprawdza, czy:

  • i.0==i.0.uppercased() - Obecny znak jest pisany wielkimi literami,

  • &&"- ".contains(i.1) - oraz Jeśli poprzedni znak to spacja lub myślnik.

• Jeśli powyższe warunki są spełnione, to:

  • print(i.0) - Znak jest drukowany, ponieważ jest częścią akronimu.

PowerShell , 43 bajty

''+($args|sls '(?<=^| |-)[A-Z]'-a -ca|% m*)

Wypróbuj online!

Rozwinięty:

''+($args|select-string '(?<=^| |-)[A-Z]' -allmatches -caseSensitive|% matches)

Python 3 , 67 bajtów

lambda x:[c[0]for c in x.replace("-"," ").split()if c[0].isupper()]

Wypróbuj online!

Python 3 , 73 70 bajtów

lambda n:[n[x]for x in range(len(n))if'@'<n[x]<'['and(' '+n)[x]in' -']

Wypróbuj online!

Wyjaśnienie

• lambda n:- Tworzy anonimową funkcję lambda z parametrem String n.

• n[x]- Pobiera znak nw indeksie x.

• for x in range(len(n))- Iteruje od 0do n, nazywając zmienną x.

• if - Czeki:

  • '@'<n[x]<'[' - Jeśli znak jest pisany wielkimi literami,

  • and(' '+n)[x]in' -'- A jeśli poprzedza go spacja lub myślnik w ciągu utworzonym przez spację i n.

JavaScript (SpiderMonkey) , 62 bajty

n=s=>(""+s.match(/([ -]|^)[A-Z]/g)).replace(/[ \-,]|null/g,"")

Wypróbuj online!

QuadS , 17 bajtów

(?<=^| |-)[A-Z]
&

Wypróbuj online!

Pyth, 15 16 bajtów

@rG1<R1:w"[ -]"3

Zestaw testowy

Pyth, 12 bajtów

@rG1hMcXz\-d

Zestaw testowy tutaj.

Bash (grep), 29 28 bajtów

grep -oP'(?<=^| |-)[A-Z]' a

Port mojej odpowiedzi w Pythonie, ale ponieważ pgrepobsługuje zmienną długość lookhinds, jest zauważalnie krótszy (nawet biorąc pod uwagę obciążenie Pythona). Przyklej przypadki testowe do pliku o nazwie a, wyjście to 1 znak na linię.

-1 dzięki Neil

RProgN 2 , 18 bajtów

`-` rû#ùr.'[a-z]'-

Wyjaśniono

`-` rû#ùr.'[a-z]'-
`-`                     # Push "-" literal, and " " literal.
    r                   # replace, Replaces all "-"s with " "s.
     û                  # Split, defaultly by spaces.
      #ù                # Push the head function literally.
        r               # Replace each element of the split string by the head function, which gets each first character.
         .              # Concatenate, which collapses the stack back to a string.
          '[a-z]'-      # Push the string "[a-z]" literally, then remove it from the string underneith, giving us our output. 

Wypróbuj online!

PHP, 62 bajty

for(;~$c=$argn[$i++];$p=$c!="-"&$c!=" ")$c<A|$c>Z|$p?:print$c;

Uruchom jako potok z -nRlub spróbuj online .

inne rozwiązania:

foreach(preg_split("#[ -]#",$argn)as$s)$s[0]>Z|$s<A?:print$s[0];  # 64 bytes
preg_match_all("#(?<=\s|-)[A-Z]#"," $argn",$m);echo join($m[0]);  # 64 bytes
preg_match_all("#(?<=\s|-)\p{Lu}#"," $argn",$m);echo join($m[0]); # 65 bytes

C ++, 168 bajtów

#include<string>
auto a=[](auto&s){auto r=s.substr(0,1);if(r[0]<65||r[0]>90)r="";for(int i=1;i<s.size();++i)if(s[i]>64&&s[i]<91&&(s[i-1]==32||s[i-1]==45))r+=s[i];s=r;};

Dane wyjściowe wykonane za pomocą parametru

Lua , 79 75 bajtów

for i=1,#t do for i in(" "..t[i]):gmatch"[%-| ]%u"do print(i:sub(2))end end

Spróbuj!

Utknąłem print () przed końcowym końcem w wersji try it, ponieważ w przeciwnym razie jest to bałagan. Ten program doskonale spełnia wymagania I / O i dopasowania, ale bez tej nowej nowej linii jest dość trudny do odczytania.

Dane wejściowe są podawane w postaci tabeli liczb: ciąg, liczba za każdym razem zwiększana o 1 i rozpoczynająca się od 1.

Wyjaśnienie:

To dla pętli przez gmatch każdego ciągu wejściowego. Wyszukiwanie w gmatch wygląda następująco:

[% - | ] - Grupuj, wyszukaj - lub spację

% u - Wyszukaj wielką literę

Następnie dla każdego dopasowania wypisuje go minus poprzedni myślnik lub spację

Edycja: 4 bajty w golfie, usuwając deklarację „a” i dodając spację do wejścia wewnątrz pętli for, a także zmieniając wejście sub na tylko 2 zamiast 2,2 (co daje równoważne wyniki)

Pyth , 12 bajtów

Utworzono rok po pierwszej odpowiedzi.

rI#1hMcXQ\-d

Wypróbuj online!

Pyth , 21 bajtów

Wstępna odpowiedź.

:+dQ"(?<=[ -])[A-Z]"1

Wypróbuj online!