Dies ähnelt dem Erstellen eines Akronyms , es gibt jedoch einige wesentliche Unterschiede, einschließlich der Methode zum Abrufen des Akronyms und dieser Herausforderung, einschließlich der flexiblen Ausgabe.

Aufgabe

Bei einer Zeichenfolge (Liste mit Zeichen / Länge 1 ist zulässig), die nur druckbares ASCII enthält, alle Großbuchstaben in der Eingabe ausgeben, denen entweder ein Leerzeichen oder ein Bindestrich vorangestellt ist, oder die das erste Zeichen in der Eingabe sind. Leere Zeichenfolge ist undefiniertes Verhalten.

Testfälle:

Die Ausgabe kann im Format sein "TEST", ["T","E","S","T"]für Sie, oder was auch immer funktioniert.

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

Das ist Code-Golf , also gewinnt die kürzeste Antwort in Bytes.

V , 7 Bytes

ÍÕü¼À!õ

Probieren Sie es online!

Hier ist ein Hexdump, um die Byteanzahl zu beweisen:

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

Erläuterung:

Í       " 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

Dies ist alles dank der wunderbaren Regex-Komprimierung von V kurz .

R , 66 63 Bytes

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

Probieren Sie es online!

-3 Bytes dank Scarabee

Eine anonyme Funktion; Gibt das Akronym als Vektor zurück, c("N","A","T","O")der implizit gedruckt wird.

Für einmal ist das in R nicht so schlimm! teilt -oder auf (space), nimmt das erste Element von jedem dieser Elemente und gibt dann die Großbuchstaben zurück ( LETTERSist ein R mit Großbuchstaben), in der Reihenfolge.

Python 2 , 59 56 Bytes

^{-3 Bytes dank Lynn}

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

Probieren Sie es online!

Javascript 21 Bytes

Übernimmt eine Zeichenfolgeeingabe und gibt ein Array von Zeichenfolgen aus, die die Akronymzeichen enthalten

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

Erläuterung

Es ist nur eine globale Regex-Übereinstimmung für die Wortgrenze, gefolgt von einem Großbuchstaben.

Netzhaut , 21 17 Bytes

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

Probieren Sie es online!

Erläuterung

Gibt die Übereinstimmungen des regulären Ausdrucks (?<=^| |-)[A-Z]in der Eingabe aus, eine pro Zeile ( !).

Dyalog APL, 29 23 Bytes

Bonus Testfall: Eine Programmiersprache (APL).

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

Gibt ein Array von Zeichen zurück (wird als Leerzeichen in TIO angezeigt).

Probieren Sie es online!

Älterer Beitrag, 29 Bytes

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

Probieren Sie es online!

Wie?

'(\w)\w+'⎕R - Ersetzen Sie jede Gruppe alphabetischer Zeichen

    '\1' - mit seinem ersten Zeichen

~⍨ - Entfernen Sie alle Zeichen

    (⎕AV~⎕A) - Das ist kein ASCII-Großbuchstabe

Python, 53 Bytes

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

Probieren Sie es online!

Ein einfacher regulärer Ausdruck mit einem Lookahead für Leerzeichen oder Bindestrich. Stellen Sie ein Leerzeichen voran, anstatt es mit dem Start abzugleichen.

C # 84 78 Bytes

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

6 Bytes dank @jkelm eingespart .

Probieren Sie es online!

Voll / Formatierte Version:

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 Bytes)

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

Erklärung: Dies ist mein erster Code-Golf. Ziemlich einfach. Teilen Sie die Wörter, und drucken Sie jeweils den ersten oberen Buchstaben.

Wahrscheinlich einfach, mit Regex besser umzugehen, aber ich bin neu in diesem Bereich

05AB1E , 11 Bytes

'-ð‡ð¡ζнAuÃ

Probieren Sie es online!

C # (.NET Core) , 108 Byte

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;}

Probieren Sie es online!

Jelly ,  11 bis  10 Bytes

-1 Byte dank Erik dem Outgolfer ( Ḳteilt sich in Leerzeichen> _ <)

⁾- yḲḢ€fØA

Eine monadische Verknüpfung, die Listen von Zeichen aufnimmt und zurückgibt.
Als volles Programm akzeptiert ein String und druckt das Ergebnis.

Probieren Sie es online! oder sehen Sie sich eine Testsuite an .

Wie?

⁾- 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 Bytes

24 Byte Code + 1 für -n.

Ärgerlich, dass grep -PUnterstützung für Look- Behind mit variabler Länge, aber Perl nicht :(.

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

-1 Byte danke an @Dada !

Probieren Sie es online! - Beinhaltet -ldas gleichzeitige Ausführen aller Tests.

MATL , 19 Bytes

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

Probieren Sie es online!

Brachylog , 25 23 22 Bytes

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

Probieren Sie es online!

(-2 Bytes dank @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 Bytes

-2 Bytes dank Shaggy

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

Probieren Sie es online!

Swift 5 , 110 Bytes

-5 danke an Cœur

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

Ausführliche Erklärung

• import Foundation- Importiert das Modul Foundation, das für zip()den Hauptteil dieses Codes von entscheidender Bedeutung ist.

• func f(s:[String]){...}- Erstellt eine Funktion mit einem Parameter s, dh einer Liste von Zeichenfolgen, die die Zeichen der Eingabe darstellen.

• for i in zip(s,[" "]+s){...}- Iteriert mit idurch die Zip- Datei der Eingabe und der Eingabe mit einem Leerzeichen am Anfang, das ist sehr hilfreich ist, um das vorherige Zeichen in der Zeichenfolge abzurufen.

• if - Überprüft, ob:

  • i.0==i.0.uppercased() - Das aktuelle Zeichen ist in Großbuchstaben geschrieben.

  • &&"- ".contains(i.1) - und Wenn das vorherige Zeichen ein Leerzeichen oder ein Bindestrich ist.

• Wenn die obigen Bedingungen erfüllt sind, dann:

  • print(i.0) - Das Zeichen wird gedruckt, da es Teil des Akronyms ist.

PowerShell , 43 Byte

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

Probieren Sie es online!

Abgerollt:

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

Python 3 , 67 Bytes

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

Probieren Sie es online!

Python 3 , 73-70 Bytes

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

Probieren Sie es online!

Erläuterung

• lambda n: - Erzeugt eine anonyme Lambda-Funktion mit einem String-Parameter n .

• n[x]- Erhält den Charakter von nat index x.

• for x in range(len(n))- Iteriert von 0bis zur Länge nund benennt die Variable x.

• if - Schecks:

  • '@'<n[x]<'[' - Wenn das Zeichen in Großbuchstaben geschrieben ist,

  • and(' '+n)[x]in' -'- und wenn davor ein Leerzeichen oder ein Bindestrich in der Zeichenfolge steht, die durch ein Leerzeichen und gebildet wird n.

JavaScript (SpiderMonkey) , 62 Byte

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

Probieren Sie es online!

QuadS , 17 Bytes

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

Probieren Sie es online!

Pyth, 15 bis 16 Bytes

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

Testsuite

Pyth, 12 Bytes

@rG1hMcXz\-d

Testsuite hier.

Bash (grep), 29 28 Bytes

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

Ein Port meiner Python-Antwort, aber da er pgrepLookbehinds mit variabler Länge unterstützt, ist er merklich kürzer (sogar unter Berücksichtigung des Overheads von Python). Stecken Sie die Testfälle in eine Datei mit dem Namena . Die Ausgabe beträgt 1 Zeichen pro Zeile.

-1 Danke an Neil

RProgN 2 , 18 Bytes

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

Erklärt

`-` 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. 

Probieren Sie es online!

PHP, 62 Bytes

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

Laufen Sie als Pipe mit -nRoder versuchen Sie es online .

andere Lösungen:

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 Bytes

#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;};

Ausgabe erfolgt über den Parameter

Lua , 79 75 Bytes

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

Versuch es!

Ich habe ein print () vor dem endgültigen Ende in der try it-Version geklebt, weil es sonst ein Durcheinander ist. Dieses Programm entspricht perfekt den Anforderungen von I / O und Matching, aber ohne diese zusätzliche neue Zeile ist es ziemlich schwer zu lesen.

Die Eingabe erfolgt in Form einer Zahlentabelle: Zeichenfolge, die jeweils um 1 erhöht wird und bei 1 beginnt.

Erläuterung:

Es for durchläuft eine Übereinstimmung jeder Eingabezeichenfolge. Die Gmatch-Suche sieht wie folgt aus:

[% - | ] - Gruppe, Suche nach einem - oder einem Leerzeichen

% u - Suche nach einem Großbuchstaben

Dann wird es für jede Übereinstimmung ohne den vorangegangenen Gedankenstrich oder das vorangegangene Leerzeichen gedruckt

Bearbeiten: 4 Bytes wurden abgelegt, indem die Deklaration von 'a' entfernt und der Eingabe innerhalb der for-Schleife ein Leerzeichen hinzugefügt wurde. Außerdem wurde die Sub-Eingabe auf nur 2 anstatt auf 2,2 geändert (was zu äquivalenten Ergebnissen führt).

Pyth , 12 Bytes

Erstellt ein Jahr nach der ersten Antwort.

rI#1hMcXQ\-d

Probieren Sie es online!

Pyth , 21 Bytes

Erste Antwort.

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

Probieren Sie es online!