Ini mirip dengan Membuat akronim , tetapi ada beberapa perbedaan utama, termasuk metode pengambilan akronim, dan tantangan ini termasuk output yang fleksibel.

Tugas

Diberikan string (daftar karakter / panjang 1 string diizinkan) yang hanya berisi ASCII yang dapat dicetak, mengeluarkan semua huruf kapital dalam input yang diawali dengan spasi atau tanda hubung, atau merupakan karakter pertama dalam input. String kosong adalah perilaku yang tidak terdefinisi.

Kasus uji:

Output mungkin dalam format "TEST", ["T","E","S","T"], atau apa pun yang lain bekerja untuk Anda.

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

Ini adalah kode-golf , jadi jawaban tersingkat dalam byte menang.

V , 7 byte

ÍÕü¼À!õ

Cobalah online!

Berikut ini adalah hexdump untuk membuktikan jumlah byte:

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

Penjelasan:

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

Ini singkat semua berkat kompresi regex V yang luar biasa .

R , 66 63 byte

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

Cobalah online!

-3 byte terima kasih kepada Scarabee

Fungsi anonim; mengembalikan akronim sebagai vektor c("N","A","T","O")yang dicetak secara implisit.

Untuk sekali ini, ini tidak terlalu buruk di R! memisahkan -atau (space)mengambil elemen pertama dari masing-masing, dan kemudian mengembalikan yang mana adalah kapital ( LETTERSadalah huruf R yang dibangun dengan huruf kapital), secara berurutan.

Python 2 , 59 56 byte

^{-3 byte terima kasih kepada Lynn}

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

Cobalah online!

Javascript 21 byte

Mengambil input string dan menampilkan array string yang berisi karakter akronim

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

Penjelasan

Itu hanya pertandingan regex global untuk batas kata yang diikuti dengan huruf kapital.

Retina , 21 17 byte

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

Cobalah online!

Penjelasan

Keluarkan kecocokan regex (?<=^| |-)[A-Z]di input, satu per baris ( !).

Dyalog APL, 29 23 byte

Kaset uji bonus: Bahasa Pemrograman (APL).

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

Mengembalikan array karakter (ditampilkan sebagai ruang yang dipisahkan pada TIO).

Cobalah online!

Posting lebih lama, 29 byte

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

Cobalah online!

Bagaimana?

'(\w)\w+'⎕R - Ganti setiap cluster karakter alfabet

    '\1' - dengan karakter pertamanya

~⍨ - Hapus setiap char

    (⎕AV~⎕A) - itu bukan huruf kapital ASCII

Python, 53 byte

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

Cobalah online!

Ekspresi reguler sederhana dengan lookahead untuk spasi atau tanda hubung. Daripada mencocokkan awal, tambahkan spasi.

C #, 84 78 byte

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

Disimpan 6 byte berkat @jkelm .

Cobalah online!

Versi Lengkap / Diformat:

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

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

Penjelasan: Ini adalah golf kode pertama saya. Cukup lurus ke depan. Pisahkan kata-kata, cetak masing-masing huruf pertama.

Mungkin mudah dilakukan dengan lebih baik menggunakan regex tapi saya baru dalam hal ini

05AB1E , 11 byte

'-ð‡ð¡ζнAuÃ

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

Cobalah online!

Jelly ,  11  10 byte

-1 byte terima kasih kepada Erik the Outgolfer ( Ḳterbagi dua spasi> _ <)

⁾- yḲḢ€fØA

Tautan monadik yang mengambil dan mengembalikan daftar karakter.
Sebagai program penuh menerima string dan mencetak hasilnya.

Cobalah online! atau lihat test suite .

Bagaimana?

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

24 byte kode +1 untuk -n.

Mengganggu bahwa grep -Pmendukung panjang variabel melihat-belakang tetapi Perl tidak :(.

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

-1 byte terima kasih kepada @Dada !

Cobalah online! - termasuk -luntuk menjalankan semua tes sekaligus.

MATL , 19 byte

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

Cobalah online!

Brachylog , 25 23 22 byte

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

Cobalah online!

(-2 byte terima kasih kepada @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 byte

-2 byte terima kasih kepada Shaggy

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

Cobalah online!

Cepat 5 , 110 byte

Terima kasih kepada Cœur

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

Penjelasan detail

• import Foundation- Mengimpor modul Foundationyang sangat penting untuk zip(), bagian utama dari kode ini.

• func f(s:[String]){...}- Membuat fungsi dengan parameter s, yaitu daftar String, mewakili karakter input.

• for i in zip(s,[" "]+s){...}- Iterate dengan imelalui zip input dan input dengan spasi yang ditambahkan di awal, yang sangat membantu untuk mendapatkan karakter sebelumnya dalam String.

• if - Cek apakah:

  • i.0==i.0.uppercased() - Karakter saat ini adalah huruf besar,

  • &&"- ".contains(i.1) - dan Jika karakter sebelumnya adalah spasi atau tanda hubung.

• Jika kondisi di atas terpenuhi, maka:

  • print(i.0) - Karakter dicetak, karena itu adalah bagian dari akronim.

PowerShell , 43 byte

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

Cobalah online!

Belum dibuka:

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

Python 3 , 67 byte

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

Cobalah online!

Python 3 , 73 70 byte

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

Cobalah online!

Penjelasan

• lambda n:- Membuat fungsi lambda anonim dengan parameter String n.

• n[x]- Mendapat karakter nat index x.

• for x in range(len(n))- Berganti dari 0panjang n, menamai variabel x.

• if - Cek:

  • '@'<n[x]<'[' - Jika karakter huruf besar,

  • and(' '+n)[x]in' -'- Dan jika itu didahului oleh spasi atau tanda hubung dalam String yang dibentuk oleh spasi dan n.

JavaScript (SpiderMonkey) , 62 byte

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

Cobalah online!

QuadS , 17 byte

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

Cobalah online!

Pyth, 15 16 byte

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

Suite uji

Pyth, 12 byte

@rG1hMcXz\-d

Test suite di sini.

Bash (grep), 29 28 byte

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

Sebuah port jawaban python saya tetapi karena pgrepmendukung panjang variabel terlihat di belakangnya terasa lebih pendek (bahkan terhitung untuk overhead python). Tempel kotak uji dalam file bernama a, output adalah 1 karakter per baris.

-1 Terima kasih kepada Neil

RProgN 2 , 18 byte

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

Dijelaskan

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

Cobalah online!

PHP, 62 byte

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

Jalankan sebagai pipa dengan -nRatau coba online .

solusi lain:

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 byte

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

Output dilakukan melalui parameter

Lua , 79 75 byte

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

Cobalah!

Saya memasang cetakan () sebelum akhir pada versi coba karena kalau tidak berantakan. Program ini dengan sempurna mematuhi persyaratan I / O dan pencocokan, tetapi tanpa baris baru tambahan itu cukup sulit untuk dibaca.

Input diberikan dalam bentuk tabel angka: string, angka bertambah 1 setiap kali dan mulai dari 1.

Penjelasan:

Itu untuk loop melalui gmatch dari setiap string input. Pencarian gmatch adalah sebagai berikut:

[% - | ] - Kelompokkan, cari - atau spasi

% u - Mencari karakter huruf besar

Kemudian untuk setiap pertandingan, itu mencetaknya minus tanda hubung atau spasi sebelumnya

Sunting: Memotong 4 byte dengan menghapus deklarasi 'a' dan menambahkan spasi ke input di dalam for loop in, serta mengubah sub input menjadi hanya 2 daripada 2,2 (yang menghasilkan hasil yang setara)

Pyth , 12 byte

Dibuat satu tahun setelah jawaban awal.

rI#1hMcXQ\-d

Cobalah online!

Pyth , 21 byte

Jawaban awal.

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

Cobalah online!