А или Ан?


21

В английском языке есть забавная и простая разница между anи a: вы используете, anкогда предшествует слово, начинающееся с гласного звука, и aкогда слово начинается с согласного звука.

Ради простоты в этом вызове anпредшествует слову, начинающемуся с гласной ( aeiou), и aпредшествует слову, начинающемуся с согласной.

вход

Строка, содержащая только печатаемые символы ASCII, и [?]появляется в местах, где вы должны выбрать для вставки anили a. [?]всегда будет появляться перед словом. Вы можете предположить, что предложение будет грамматически правильным и отформатированным как обычно.

Выход

Входная строка [?]заменяется на соответствующее слово ( anили a). Вы должны беспокоиться о капитализации!

Когда извлечь выгоду

Заглавное слово, если перед ним нет символов (это первый во входных данных) или если перед ним стоит один из символов, .?!за которым следует пробел.

Примеры

Input: Hello, this is [?] world!
Output: Hello, this is a world!

Input: How about we build [?] big building. It will have [?] orange banana hanging out of [?] window.
Output: How about we build a big building. It will have an orange banana hanging out of a window.

Input: [?] giant en le sky.
Output: A giant en le sky.

Input: [?] yarn ball? [?] big one!
Output: A yarn ball? A big one!

Input: [?] hour ago I met [?] European.
Output: A hour ago I met an European.

Input: Hey sir [Richard], how 'bout [?] cat?
Output: Hey sir [Richard], how 'bout a cat?

Это , поэтому выигрывает самый короткий код в байтах!


Хорошо спасибо. Можем ли мы предположить, что между входными данными [?]и словом не должно быть лишних пробелов ?
DJMcMayhem

8
Обязательно ли вводить заглавную букву в середине ввода, когда оно идет в начале предложения? («Это [?] Test. [?] Test.») Если да, то чем может заканчиваться предложение? А как насчет предложений в кавычках или скобках? Или аббревиатуры, оканчивающиеся на точку («Например, ввод [?])»? Правила использования заглавных букв имеют много странных особых случаев, поэтому, пожалуйста, будьте предельно ясны в отношении того, что наши программы делают или не должны обрабатывать.
DLosc

1
Не могли бы вы уточнить, когда использовать заглавные буквы? Первый персонаж?
DJMcMayhem

31
Вы должны добавить контрольный пример, [?] hour ago I met [?] European.чтобы все съежились.
Мартин Эндер

1
Теперь мы должны иметь[?] hour ago I met [?] horse.
мензурка

Ответы:


6

V , 41 байт

ÍãÛ?Ý ¨[aeiou]©/an
ÍÛ?Ý/a
Í^aü[.!?] a/A

Попробуйте онлайн! , что также удобно использовать для проверки всех тестовых случаев без дополнительного количества байтов.

Это использует V "Regex Compression". Он использует много непечатаемых символов, поэтому вот hexdump:

0000000: cde3 db3f dd85 20a8 5b61 6569 6f75 5da9  ...?.. .[aeiou].
0000010: 2f61 6e0a cddb 3fdd 2f61 0acd 5e61 fc5b  /an...?./a..^a.[
0000020: 2e21 3f5d 2093 612f 41                   .!?] .a/A

К сожалению, OP сказал : «Вы действительно должны беспокоиться о капитализации!» (акцент мой).
El'endia Starman

1
@ El'endiaStarman О, я неправильно это понял. Я могу это исправить, но понятия не имею, что писать с заглавной буквы, так как OP не указал.
DJMcMayhem

@ El'endiaStarman Исправлено сейчас.
DJMcMayhem

7

Perl, 48 байт

Сохранено 1 байт благодаря Тону Хоспелу .

#!perl -p
s;\[\?];A.n x$'=~/^ [aeiou]/i^$"x/[^.?!] \G/;eg

Считая Шебанг как единое, ввод берется из стандартного ввода.

объяснение

#!perl -p               # for each line of input, set $_, auto-print result

s;                      # begin regex substitution, with delimiter ;
\[\?]                   # match [?] literally, and replace with:
;
A.n x$'=~/^ [aeiou]/i   # 'A', concatenate with 'n' if post-match ($')
                        #   matches space followed by a vowel
^$"x/[^.?!] \G/         # if the match is preceded by /[^.?!] /, xor with a space
                        #   this will change An -> an

;eg                     # regex options eval, global

Образец использования

$ echo Hello, this is [?] world! | perl a-an.pl
Hello, this is a world!

$ echo How about we build [?] big building. It will have [?] orange banana hanging out of [?] window. | perl a-an.pl
How about we build a big building. It will have an orange banana hanging out of a window.

$ echo [?] giant en le sky. [?] yarn ball? | perl a-an.pl
A giant en le sky. A yarn ball?

$ echo [?] hour ago I met [?] European. | perl a-an.pl
A hour ago I met an European.

2
Не могли бы вы объяснить это, пожалуйста?
sudee

1
Поддержка заглавной буквы после /[.?!]/пробела отсутствует
Тон Хоспел

1
@TonHospel 10 часов назад, проблема не упоминала об этом.
Примо

2
Хорошо, изменение спецификации на лету так несправедливо. PS: я люблю использовать, \Gчтобы идти задом наперед. PPS, немного короче:s;\[\?];A.n x$'=~/^ [aeiou]/^$"x/[^.?!] \G/;eg
Тон Хоспел

1
@sudee обновлено, чтобы включить объяснение.
Примо

7

Рубин, 78 72 байта

->s{s.gsub(/(^|\. )?\K\[\?\]( [aeiou])?/i){"anAn"[$1?2:0,$2?2:1]+"#$2"}}
  • Сохранено 6 байтов благодаря @Jordan

Ungolfed

def f(s)
    s.gsub(/(^|\. )?\[\?\]( [aeiou])?/i) do |m|
        capitalize = $1
        vowel = $2
        replacement = if vowel then
            capitalize ? "An" : "an"
        else
            capitalize ? "A" : "a"
        end
        m.sub('[?]', replacement)
    end
end

2
"anAn"[...]действительно умный Save Вы можете сохранить несколько байтов, пропустив внутренний sub:s.gsub(/(^|\. )?\K\[\?\] ([aeiou])?/i){"anAn"[$1?2:0,$2?2:1]+" #$2"}
Джордан

6

PHP, 207 байт

foreach(explode("[?]",$s)as$i=>$b){$r=Aa[$k=0|!strstr(".!?",''==($c=trim($a))?".":$c[strlen($c)-1])].n[!preg_match("#^['\"´`\s]*([aeiou]|$)#i",$d=trim($b))];echo$i?$r.$b:$b;$a=$i?''==$d?a:$b:(''==$d?".":a);}

Мне нравятся решения, более полные время от времени ...
но я должен признать, что это немного излишне, хотя еще не закончено.

Сохранить в файл, запустить php <filename>с вводом из STDIN.

контрольные примеры

How about we build [?] big building ... with [?] orange banana hanging out of [?] window.
=>  How about we build a big building ... with an orange banana hanging out of a window.

Hello, this is [?] world!               =>  Hello, this is a world!
Should I use [?] '[?]' or [?] '[?]'?    =>  Should I use an 'an' or an 'a'?
[?] elephant in [?] swimsuit.           =>  An elephant in a swimsuit.

How I met your moth[?].                 =>  How I met your motha.
b[?][?][?] short[?]ge!                  =>  banana shortage!

сломать

foreach(explode("[?]",$s)as$i=>$b)
{
    $r=
        // lookbehind: uppercase if the end of a sentence precedes
        Aa[$k=0|!strstr(".!?",''==($c=trim($a))?".":$c[strlen($c)-1])]
        .
        // lookahead: append "n" if a vowel follows (consider quote characters blank)
        n[!preg_match("#^['\"´`\s]*([aeiou]|$)#i",$d=trim($b))]
    ;
    // output replacement and this part
    echo$i?$r.$b:$b;
    // prepare previous part for next iteration
    $a=$i               // this part was NOT the first:
        ?   ''==$d
            ? a             // if empty -> a word ($r from the previous iteration)
            : $b            // default: $b
        :  (''==$d      // this WAS the first part:
            ? "."           // if empty: end of a sentence (= uppercase next $r)
            : a             // else not
        )
    ;
    // golfed down to `$a=!$i^''==$d?a:($i?$b:".");`
}

3
Upvote для "банановой нехватки"! LOL
MonkeyZeus

@MonkeyZeus: попробуй[?][?][?]s [?]lert!
Титус

Все, что я могу себе представить, это разбитый горем Донки Конг, которого сейчас беспокоит
тошнота

5

Минколанг 0,15 , 75 байт

od4&r$O."]?["30$Z3&00w4X"Aa"I2-"Aa ."40$Z,*2&$rxr$O" aeiou"od0Z1=3&"n"r5X$r

Попробуй это здесь!

объяснение

od                                                                    Take character from input and duplicate (0 if input is empty)
  4&                                                                  Pop top of stack; jump 4 spaces if not 0
    r$O.                                                              Reverse stack, output whole stack as characters, and stop.

    "]?["                                                             Push "[?]" on the stack
         30$Z                                                         Pop the top 3 items and count its occurrences in the stack
              3&                                                      Pop top of stack; jump 3 spaces if not 0
                00w                                                   Wormhole to (0,0) in the code box

                3X                                                    Dump the top 3 items of stack
                  "Aa"                                                Push "aA"
                      I2-                                             Push the length of stack minus 2
                         "Aa ."40$Z,                                  Push ". aA" and count its occurrences, negating the result
                                    *                                 Multiply the top two items of the stack
                                     2&$r                             Pop top of stack and swap the top two items if 0
                                         x                            Dump top of stack
                                          r                           Reverse stack
                                           $O                         Output whole stack as characters
                                             " aeiou"                 Push a space and the vowels
                                                     od               Take a character from input and duplicate
                                                       0Z             Pop top of stack and count its occurrences in the stack (either 1 or 2)
                                                         1=           1 if equal to 1, 0 otherwise
                                                           3&         Pop top of stack; jump 3 spaces if not 0
                                                             "n"      Push "n" if top of stack is 0

                                                             r        Reverse stack
                                                              5X      Dump top five items of stack
                                                                $r    Swap top two items of stack

Обратите внимание, что, поскольку Minkolang является тороидальным, когда счетчик программ сдвигается от правого края, он снова появляется слева. Конечно, можно играть в гольф, но поскольку мне пришлось добавить 21 байт из-за спецификации, я не могу попробовать.


6
Я единственный, кто хочет поиграть в excitebike после прочтения этого объяснения?
Волшебная урна осьминога

3

JavaScript (ES6), 90 86 87 85

Изменить еще раз, как изменилась спецификация для заглавных букв (теперь более разумно)

Отредактируйте еще раз 1 байт

Отредактируйте еще 2 байта для управления кавычками и тому подобным, как указывает IsmaelMiguel (даже если я не знаю, запрашивается ли это оп). Обратите внимание, что ранее я насчитал 86 байт, но их было 85

Попытка следовать правилу использования заглавных букв, указанному в комментарии, если оно неполное (по крайней мере)

x=>x.replace(/([^!?.] )?\[\?](\W*.)/g,(a,b,c)=>(b?b+'a':'A')+(/[aeiou]/i.test(c)?'n'+c:c))

Тестовое задание

f=x=>x.replace(/([^!?.] )?\[\?](\W*.)/g,(a,b,c)=>(b?b+'a':'A')+(/[aeiou]/i.test(c)?'n'+c:c))

function go() {
  var i=I.value, o=f(i)
  O.innerHTML = '<i>'+i+'</i>\n<b>'+o+'</b>\n\n'+O.innerHTML 
}

go()
#I { width:80% }
<input value='How about we build [?] big building. It will have [?] orange banana hanging out of [?] window.' id=I><button onclick='go()'>GO</button><pre id=O></pre>


Не должен [?][?]давать Ana? И не должен [?][?] a.производить Ana a.?
Исмаэль Мигель

@IsmaelMiguel Я не совсем понимаю, что вы имеете в виду, но в любом случае[?] will always appear before a word. You can assume that the sentence will be grammatically correct and formatted like normal.
edc65

Понятно, но ваш код дает странные результаты для [?] "[?]".( An "A"кавычки не имеют значения) и для [?] "A".(это прекрасно работает [?] A.).
Исмаэль Мигель

@IsmaelMiguel [?] "[?]"не является допустимым вводом. [?] will always appear before a word и "[?]" это не слово.
edc65

2
Выход из второго ]не нужен. /(\w )?\[\?](\W*.)/g
Huntro

2

Пакет, 136 байт

@set/ps=
@for %%v in (a e i o u)do @call set s=%%s:[?] %%v=an %%v%%
@set s=%s:[?]=a%
@if %s:~0,1%==a set s=A%s:~1%
@echo %s:. a=. A%

Занимает строку ввода на STDIN.


2

PHP, 100 92 байта

<?=preg_filter(["/\[\?]\K(?= [aeiou])/i","/([.?!] |^)\K\[\?]/","/\[\?]/"],[n,A,a],$argv[1]);

Удалось дальше поиграть в гольф регулярными выражениями.

Дает уведомление о неопределенной константе, но все еще работает.

Редактировать: 8 байтов сохранено благодаря primo


Также должна быть возможность получить замену массива [n,A,a]с помощью проверочных утверждений ( \Kи (?= )).
Примо

2

Python 3.5.1, 153 147 124 байта

*s,=input().replace('[?]','*');print(*[('a','A')[i<1or s[i-2]in'.?!']+'n'*(s[i+2]in 'aeiouAEIOU')if c=='*'else c for i,c in enumerate(s)],sep='')

Вход:

[?] apple [?] day keeps the doctor away. [?] lie.

Выход :

An apple a day keeps the doctor away. A lie.

Версия 123 байта - Это не обрабатывает правило заглавных букв.

s=list(input().replace('[?]','*'));print(*['a'+'n'*(s[i+2]in 'aeiouAEIOU')if c=='*'else c for i,c in enumerate(s)],sep='')

Идео это!


1
Добро пожаловать в Codegolf. Вы можете использовать ;и играть в гольф.
ABcDexter

1
m.start() forдолжно быть m.start()for, s[i+2] in 'aeiouAEIOU'должно быть s[i+2]in'aeiouAEIOU'. Легкое бритье на 3 байта из-за пробелов.
Эрик Outgolfer

1
('an','a')[s[i+2]in'aeiouAEIOU']инвертировано, вы можете использовать это, 'a'+'n'*(s[i+2]in'aeiouAEIOU')чтобы исправить это и сохранить 2 байта. Здесь вы можете найти множество советов по гольфу .
Род

1
Это сообщество очень милое, видя, как много людей готовы помочь новичку и дать советы по игре в гольф!
лет»

1
Вау enumerate()это круто. Спасибо @chepner.
Гурупад Мамадапур

2

Ява, 180 178 байт

В своем первом посте я использовал часть поста Кевина Круйссена, но, применяя другой подход, он помог мне немного сократить это, благодаря ему!

String c(String s){String x[]=s.split("\\[\\?]",2),r=x[0];return x.length>1?r+(r.matches("(.+[.!?] )|(^)$")?"A":"a")+("aeiouAEIOU".contains(""+x[1].charAt(1))?"n":"")+c(x[1]):r;}

Вот это не одурачено:

static String c(String s) {
        String x[] = s.split("\\[\\?\\]", 2), r = x[0];
        return x.length > 1 ? r + (r.matches("(.+[.!?] )|(^)$") ? "A" : "a")
                + ("aeiouAEIOU".contains("" + x[1].charAt(1)) ? "n" : "") + c(x[1]) : r;
    }

И результат

Простое объяснение, я использую рекурсивный подход, чтобы найти каждый [?].

Я не мог найти способ использовать спички с нечувствительным регистром (не уверен, что это возможно).

178 байт: Спасибо Мартину Эндеру!


1
Добро пожаловать в PPCG! Я не думаю, что вам нужно избегать ]в своем регулярном выражении.
Мартин Эндер

Вы правы, достаточно только первого, спасибо
AxelH

2

05AB1E , 38 36 35 байт

2FžNžM‚NèSðì…[?]©ìDu«D®'a'nN׫::}.ª

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

Объяснение:

2F            # Loop 2 times:
  žN          #  Push consonants "bcdfghjklmnpqrstvwxyz"
  žM          #  Push vowels "aeiou"
             #  Pair them together into a list
     Nè       #  And use the loop-index to index into this pair
  S           #  Convert this string to a list of characters
   ðì         #  Prepend a space in front of each character
     …[?]     #  Push string "[?]
         ©    #  Store it in variable `®` (without popping)
          ì   #  And prepend it in front of each string in the list as well
  }D          #  Then duplicate the list
    u         #  Uppercase the characters in the copy
     «        #  And merge the two lists together
              #   i.e. for the vowel-iteration we'd have ["[?] a","[?] e","[?] i","[?] o",
              #    "[?] u","[?] A","[?] E","[?] I","[?] O","[?] U"]
   D          #  Duplicate it
    ®         #  Push "[?]" from variable `®`
     'a      '#  Push "a"
       'n    '#  Push "n"
         N×   #  Repeated the 0-based index amount of times (so either "" or "n")
           «  #  And append it to the "a"
    :         #  Replace all "[?]" with "an"/"a" in the duplicated list
     :        #  And then replace all values of the lists in the (implicit) input-string
 }.ª          #  After the loop: sentence-capitalize everything (which fortunately retains
              #  capitalized words in the middle of sentences, like the "European" testcase)
              # (and after the loop the result is output implicitly)

1
В этом есть небольшая ошибка. Каждое слово пишется с заглавной буквы после «а». Например, «[?] Апельсин» становится «апельсином». Кажется, работает, если вы добавите ]после::
Дориан

@Dorian Woops .. Я удалил это }позже, потому что думал, что это спасет байт, но вы действительно правы, что это не помогает в [?] vowelслучаях ... Спасибо, что сообщили мне об этом!
Кевин Круйссен

1

C #, 204 235 байт

string n(string b){for(int i=0;i<b.Length;i++){if(b[i]=='['){var r="a";r=i==0||b[i-2]=='.'?"A":r;r=System.Text.RegularExpressions.Regex.IsMatch(b[i+4].ToString(),@"[aeiouAEIOU]")?r+"n":r;b=b.Insert(i+3,r);}}return b.Replace("[?]","");}

Развернутая полная программа:

using System;

class a
{
    static void Main()
    {
        string s = Console.ReadLine();
        a c = new a();
        Console.WriteLine(c.n(s));
    }

    string n(string b)
    {
        for (int i = 0; i < b.Length; i++)
        {
            if (b[i] == '[')
            {
                var r = "a";
                r = i == 0 || b[i - 2] == '.' ? "A" : r;
                r = System.Text.RegularExpressions.Regex.IsMatch(b[i + 4].ToString(), @"[aeiouAEIOU]") ? r + "n" : r;
                b = b.Insert(i + 3, r);
            }
        }
        return b.Replace("[?]", "");
    }
}

Я уверен, что это можно улучшить, особенно в части Regex, но сейчас я не могу придумать ничего.


это работает без импорта?
кошка

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

1
Код для гольфа должен запускаться как есть в любом формате - если он не работает без импорта регулярных выражений, то импорт регулярных выражений должен также выполняться в коде гольфовых операций
cat

Хорошо спасибо. Все еще проясняю, как именно ответить. Количество и ответ теперь включают System.Text.RegularExpressions.
Йодле

Это выглядит хорошо сейчас. :) Вы также можете проверить Code Golf Meta и тег faq там.
кошка

1

Java 7, 239 214 213 байт

String c(String s){String x[]=s.split("\\[\\?\\]"),r="";int i=0,l=x.length-1;for(;i<l;r+=x[i]+(x[i].length()<1|x[i].matches(".+[.!?] $")?65:'a')+("aeiouAEIOU".contains(x[++i].charAt(1)+"")?"n":""));return r+x[l];}

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

Попробуй это здесь.

class M{
  static String c(String s){
    String x[] = s.split("\\[\\?\\]"),
           r = "";
    int i = 0,
        l = x.length - 1;
    for (; i < l; r += x[i]
                     + (x[i].length() < 1 | x[i].matches(".+[.!?] $") 
                        ? 65
                        : 'a')
                     + ("aeiouAEIOU".contains(x[++i].charAt(1)+"")
                        ? "n"
                        : ""));
    return r + x[l];
  }

  public static void main(String[] a){
    System.out.println(c("Hello, this is [?] world!"));
    System.out.println(c("How about we build [?] big building. It will have [?] orange banana hanging out of [?] window."));
    System.out.println(c("[?] giant en le sky."));
    System.out.println(c("[?] yarn ball? [?] big one!"));
    System.out.println(c("[?] hour ago I met [?] European. "));
    System.out.println(c("Hey sir [Richard], how 'bout [?] cat?"));
    System.out.println(c("[?] dog is barking. [?] cat is scared!"));
  }
}

Выход:

Hello, this is a world!
How about we build a big building. It will have an orange banana hanging out of a window.
A giant en le sky.
A yarn ball? A big one!
A hour ago I met an European. 
Hey sir [Richard], how 'bout a cat?
A dog is barking. A cat is scared!

Я попытался использовать рекурсивное решение, в результате я получаю на 2 байта больше, чем вы :( Возможно, нужно улучшить, но, поскольку я использую ваше регулярное выражение, я не люблю его публиковать.
AxelH

@AxelH Не могли бы вы опубликовать его на ideone и ссылку здесь? Вместе мы могли бы найти что-то для гольфа. ;)
Кевин Круйссен

Вот это ideone.com/z7hlVi , я нашел лучший подход, чем isEmptyиспользование регулярных выражений ^$. Я верю, что в итоге
получу

@AxelH Ах, хорошо. Хм, я считаю 195 байтов вместо 202? Кстати, вы можете сыграть в гольф до 180, сделав прямое возвращение с троичным if-else: String c(String s){String x[]=s.split("\\[\\?\\]",2),r=x[0];return x.length>1?r+(r.matches("(.+[.!?] )|(^)$")?"A":"a")+("aeiouAEIOU".contains(""+x[1].charAt(1))?"n":"")+c(x[1]):r;}так определенно короче, чем мой ответ-петля. :)
Кевин Круйссен

О, да, мне удается поместить блок if в одну строку в конце, забыл заменить его. Благодарность;
AxelH

1

Ракетка 451 байт (без регулярного выражения)

Это, очевидно, длинный ответ, но он также заменяет a и a на заглавные:

(define(lc sl item)(ormap(lambda(x)(equal? item x))sl))
(define(lr l i)(list-ref l i))(define(f str)(define sl(string-split str))
(for((i(length sl))#:when(equal?(lr sl i)"[?]"))(define o(if(lc(string->list"aeiouAEIOU")
(string-ref(lr sl(add1 i))0))#t #f))(define p(if(or(= i 0)(lc(string->list".!?")
(let((pr(lr sl(sub1 i))))(string-ref pr(sub1(string-length pr))))))#t #f))
(set! sl(list-set sl i(if o(if p"An""an")(if p"A""a")))))(string-join sl))

Тестирование:

(f "[?] giant en le [?] sky.")
(f "[?] yarn ball?")
(f "[?] hour ago I met [?] European. ")
(f "How about we build [?] big building. It will have [?] orange banana hanging out of [?] window.")
(f "Hello, this is [?] world!")

Выход:

"A giant en le a sky."
"A yarn ball?"
"A hour ago I met an European."
"How about we build a big building. It will have an orange banana hanging out of a window."
"Hello, this is a world!"

Подробная версия:

(define(contains sl item)
  (ormap(lambda(x)(equal? item x))sl))

(define(lr l i)
  (list-ref l i))

(define(f str)
  (define sl(string-split str))
  (for((i(length sl))#:when(equal?(lr sl i)"[?]"))
    (define an   ; a or an
      (if(contains(string->list "aeiouAEIOU")
                  (string-ref(lr sl(add1 i))0))
         #t #f ))
    (define cap   ; capital or not
      (if(or(= i 0)(contains(string->list ".!?")
                            (let ((prev (lr sl(sub1 i)))) (string-ref prev
                                       (sub1(string-length prev))))))
         #t #f))
    (set! sl(list-set sl i (if an (if cap "An" "an" )
                                 (if cap "A" "a")))))
  (string-join sl))


Это отличный язык, хотя и не предназначен для игры в гольф.
rnso


1

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

i`\[\?\]( ([aeiou]?)[a-z&&[^aeiou])
a$.2*n$1
(^|[.?!] )a
$1A

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

Объяснение:

Выполните поиск без учета регистра, за [?]которым следует гласная или согласная, где необязательный гласный сохраняется в группе записи 2, а все совпадения в группе записи 1:

i`\[\?\]( ([aeiou]?)[a-z&&[^aeiou])

Замените это на «а» a, после чего укажите длину второй группы n(то есть 0 или 1 n), а затем букву (буквы) группы захвата 1:

a$.2*n$1

Затем сопоставьте aлибо в начале строки, либо после любого из .?!плюс пробел:

(^|[.?!] )a

И в верхнем регистре, что A, без удаления других символов группы захвата 1:

$1A

1

Java (JDK) , 154 байта

s->{String v="(?= [aeiou])",q="(?i)\\[\\?]",b="(?<=^|[?.!] )";return s.replaceAll(b+q+v,"An").replaceAll(q+v,"an").replaceAll(b+q,"A").replaceAll(q,"a");}

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

Объяснение:

s->{
    String v="(?= [aeiou])",          // matches being followed by a vowel
    q="(?i)\\[\\?]",                  // matches being a [?]
    b="(?<=^|[?.!] )";                // matches being preceded by a sentence beginning
    return s.replaceAll(b+q+v,"An")   // if beginning [?] vowel, you need "An"
        .replaceAll(q+v,"an")         // if           [?] vowel, you need "an"
        .replaceAll(b+q,"A")          // if beginning [?]      , you need "A"
        .replaceAll(q,"a");}          // if           [?]      , you need "a"

1

C (gcc) , 225 207 202 201 байт

Благодаря Celercat за -24 байта

#define P strcpy(f+d,index("!?.",i[c-2])+!c?
c;d;v(i,g,f)char*i,*g,*f;{for(d=0;i[c];c++,d++)strcmp("[?]",memcpy(g,i+c,3))?f[d]=i[c]:(index("aeiouAEIOU",i[c+4])?P"An ":"an "),d++:P"A ":"a "),d++,c+=3);}

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


0

Groovy, 73 162 байта

def a(s){s.replaceAll(/(?i)(?:(.)?( )?)\[\?\] (.)/){r->"${r[1]?:''}${r[2]?:''}${'.?!'.contains(r[1]?:'.')?'A':'a'}${'aAeEiIoOuU'.contains(r[3])?'n':''} ${r[3]}"}}

редактировать: блин, заглавные буквы здесь все сложнее


Означает ли это заглавную букву в начале предложения?
Титус

нет. Теперь я вижу, что описание вызова за это время изменилось ...
norganos

«Дай мне [?] Час с [?] Открытой дверью погреба». Взламывает
Волшебная Урна Осьминога

описание проблемы по-прежнему полностью противоречиво. Сначала он говорит: «Вы должны беспокоиться о капитализации!» и сразу после этого есть правила для заглавных букв
norganos

Это соответствует. Вы должны беспокоиться о капитализации (то есть вам нужно управлять этим). Тогда это объясняет, как
edc65

0

C # 209 байт

string A(string b){var s=b.Split(new[]{"[?]"},0);return s.Skip(1).Aggregate(s[0],(x,y)=>x+(x==""||(x.Last()==' '&&".?!".Contains(x.Trim().Last()))?"A":"a")+("AEIOUaeiou".Contains(y.Trim().First())?"n":"")+y);}

отформатирован

string A(string b)
{
    var s = b.Split(new[] { "[?]" }, 0);
    return s.Skip(1).Aggregate(s[0], (x, y) => x + (x == "" || (x.Last() == ' ' && ".?!".Contains(x.Trim().Last())) ? "A" : "a") + ("AEIOUaeiou".Contains(y.Trim().First()) ? "n" : "") + y);
}

0

Perl 6 , 78 байт

{S:i:g/(^|<[.?!]>' ')?'[?] '(<[aeiou]>?)/{$0 xx?$0}{<a A>[?$0]}{'n'x?~$1} $1/}

Объяснение:

{
  S
    :ignorecase
    :global
  /
    ( # $0
    | ^             # beginning of line
    | <[.?!]> ' '   # or one of [.?!] followed by a space
    ) ?             # optionally ( $0 will be Nil if it doesn't match )

    '[?] '          # the thing to replace ( with trailing space )

    ( # $1
      <[aeiou]> ?   # optional vowel ( $1 will be '' if it doesn't match )
    )

  /{
    $0 xx ?$0      # list repeat $0 if $0
                   # ( so that it doesn't produce an error )
  }{
    < a A >[ ?$0 ] # 'A' if $0 exists, otherwise 'a'
  }{
    'n' x ?~$1     # 'n' if $1 isn't empty
                   # 「~」 turns the Match into a Str
                   # 「?」 turns that Str into a Bool
                   # 「x」 string repeat the left side by the amount of the right

  # a space and the vowel we may have borrowed
  } $1/
}

Тестовое задание:

#! /usr/bin/env perl6
use v6.c;
use Test;

my &code = {S:i:g/(^|<[.?!]>' ')?'[?] '(<[aeiou]>?)/{<a A>[?$0]~('n'x?~$1)} $1/}

my @tests = (
  'Hello, this is [?] world!'
  => 'Hello, this is a world!',

  'How about we build [?] big building. It will have [?] orange banana hanging out of [?] window.'
  => 'How about we build a big building. It will have an orange banana hanging out of a window.',

  '[?] giant en le sky.'
  => 'A giant en le sky.',

  '[?] yarn ball?'
  => 'A yarn ball?',

  '[?] hour ago I met [?] European.'
  => 'A hour ago I met an European.',

  "Hey sir [Richard], how 'bout [?] cat?"
  => "Hey sir [Richard], how 'bout a cat?",
);

plan +@tests;

for @tests -> $_ ( :key($input), :value($expected) ) {
  is code($input), $expected, $input.perl;
}
1..6
ok 1 - "Hello, this is a world!"
ok 2 - "How about we build a big building. It will have an orange banana hanging out of a window."
ok 3 - "A giant en le sky."
ok 4 - "A yarn ball?"
ok 5 - "A hour ago I met an European."
ok 6 - "Hey sir [Richard], how 'bout a cat?"

Вы можете удалить пробел } $1в конце (сделать это }$1)?
Cyoce

@Cyoce Есть способ сделать это, но он добавляет больше сложности в других местах. {S:i:g/(^|<[.?!]>' ')?'[?]'(' '<[aeiou]>?)/{<a A>[?$0]~('n'x?~$1.substr(1))}$1/}
Брэд Гилберт b2gills

Хорошо, я не был уверен, как Perl будет анализировать это
Cyoce

0

Луа, 131 байт.

function(s)return s:gsub("%[%?%](%s*.)",function(a)return"a"..(a:find("[AEIOUaeiou]")and"n"or"")..a end):gsub("^.",string.upper)end

Хотя Луа - ужасный язык для игры в гольф, я чувствую, что справился довольно хорошо.


0

Пип , 62 55 54 50 байт

Принимает строку в качестве аргумента командной строки.

aR-`([^.?!] )?\[\?]( [^aeiou])?`{[b"aA"@!b'nX!cc]}

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

Объяснение:

a                                                   Cmdline argument
 R                                                  Replace...
  -`                           `                    The following regex (case-insensitive):
    ([^.?!] )?                                      Group 1: not end-of-sentence (nil if it doesn't match)
              \[\?]                                 [?]
                   ( [^aeiou])?                     Group 2: not vowel (nil if there is a vowel)
                                {                }  ... with this callback function (b = grp1, c = grp2):
                                 [              ]   List (concatenated when cast to string) of:
                                  b                 Group 1
                                   "aA"@!b          "a" if group 1 matched, else "A"
                                          'nX!c     "n" if group 2 didn't match, else ""
                                               c    Group 2

0

Ракетка (с регулярным выражением) 228 байт

(define(r a b c)(regexp-replace* a b c))
(define(f s)
(set! s(r #rx"[a-zA-Z ]\\[\\?\\] (?=[aeiouAEIOU])"s" an "))
(set! s(r #rx"[a-zA-Z ]\\[\\?\\]"s" a"))
(set! s(r #rx"\\[\\?\\] (?=[aeiouAEIOU])"s"An "))
(r #rx"\\[\\?\\]"s"A"))

Тестирование:

(f "[?] giant en le [?] sky.")
(f "[?] yarn ball?")
(f "[?] apple?")
(f "[?] hour ago I met [?] European. ")
(f "How about we build [?] big building. It will have [?] orange banana hanging out of [?] window.")
(f "Hello, this is [?] world!")

Выход:

"A giant en le a sky."
"A yarn ball?"
"An apple?"
"A hour ago I met an European. "
"How about we build a big building. It will have an orange banana hanging out of a window."
"Hello, this is a world!"

0

Python 3 , 104 103 байта

-1 байт, неэкранированный ]

lambda s:r('(^|[.?!] )a',r'\1A',r('a( [aeiouAEIOU])',r'an\1',r('\[\?]','a',s)));from re import sub as r

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

Запускает путем замены всех вхождений [?]с a,
затем заменяет все aследует гласная, с an.
Затем заменяет все aв начале ввода или предложение наA .

Предполагается, что [?]никогда не будет касаться другого слова, и что строчные буквы aникогда не должны начинать предложение.


Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.