Завдання

Ваше завдання - перетворити рядки таким чином:

abc^d+ef^g + hijk^l - M^NO^P (Ag^+)

До таких струн:

   d   g       l    N P    +
abc +ef  + hijk  - M O  (Ag )

Який наближення до abc ^d + ef ^g + hijk ^l - M ^N O ^P (Ag ⁺ )

Словами піднесіть персонажів безпосередньо поруч із доглядом до верхньої лінії, один символ на одну карету.

Технічні характеристики

• Допускаються додаткові пробіли білого проміжку на виході.
• Ніякі прикуті до них послуги m^n^oне будуть надаватися як вхідні дані.
• Карета не буде супроводжуватися відразу пробілом або іншою каретою.
• Кареті не передує відразу пробіл.
• Будь-яким символам передує щонайменше один персонаж, а за ним - принаймні один символ.
• Рядок введення міститиме лише символи для друку ASCII (U + 0020 - U + 007E)
• Замість двох рядків виводу вам дозволяється виводити масив з двох рядків.

Для тих, хто говорить регулярний вираз: вхідний рядок буде відповідати цьому регулярному вираженню:

/^(?!.*(\^.\^|\^\^|\^ | \^))(?!\^)[ -~]*(?<!\^)$/

Таблиця лідерів

var QUESTION_ID=86647,OVERRIDE_USER=48934;function answersUrl(e){return"http://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"http://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

V , 15 14 байт

ÄÒ +òf^xxé kPj

Спробуйте в Інтернеті!

Досить прямолінійне рішення. Ідеальний виклик для V!

Пояснення:

Ä                "Duplicate this current line
 Ò               "Replace this line with spaces
   +             "Move to the beginning of the next line
    ò         ò  "Recursively (The second ò is implicit):
     f^          "  Find a caret
       xx        "  Delete two characters. The second will be saved into the main register
         é       "  Insert a space
           k     "  Move up
            P    "  Paste from the main register
             j   "  Move down

Зручно, виходячи з того, як працює рекурсія, це буде працювати один раз на кожну карету.

Чеддар, 77 72 67 байт

l->l.chars.vfuse.replace("^\n"," ").lines.map(j->"%-2s"%j).turn(3)

Без регексу!

Я люблю цю відповідь, оскільки це чудова демонстрація здібностей Чеддара. В основному завдяки функції заміни, яку додав Conor. PR до dev ніколи не робився, тому функція заміни існує лише на цій гілці (оновлення: я зробив PR і тепер він знаходиться на останній бета-гілці, яку можна встановити npm install -g cheddar-lang)

Я знайшов спосіб пограти в нього, але, на жаль, нагляд призводить до цього, коли довжина предметів не однакова:

["   denifednud   denifednug       denifednul    denifednuN denifednuP    denifednu+ ", "abcdenifednu +efdenifednu  + hijkdenifednu  - Mdenifednu Odenifednu  (Agdenifednu )"]

Я міг би зберегти багато байтів за допомогою регексу, а насправді я просто зробив регулярні вирази для Cheddar ... єдина проблема полягає в тому, що немає функцій регулярного вираження: /

Пояснення

l->                    // Function take input as `l`
   l.chars             // Get array of chars in input
   .vfuse              // Join with newlines
   .replace("^\n"," ") // Replace `^\n` with a space globally
   .lines              // Get the lines (see below for more details on what this returns)
   .map(j->            // Loop through each "line" `j` is arg
       "%-2s"          // C-like printf format.
                       // think of as: padRight(j, " ", 2)
                       // see below for more details
        % j            // Pass j as the string to insert
   ).turn(3)           // Turn the string 270 degrees (see below)
   .vfuse              // Vertically fuse to get result (this is not needed as we can output an array of the lines)

Щоб краще зрозуміти. Це те, .linesза що повертається1^2

["1", " 2"]

.turnз поворотом цим:

1
 2

в:

 2
1

Ще один приклад, який стане більш зрозумілим:

1
 2
2
 2

стає:

 2 2
1 2

Чому формат?

Що %-2sробити досить просто. %вказує, що ми починаємо "формат", або що змінна буде вставлена ​​в цей рядок в цей момент. -означає праворуч накладати рядок, і 2це максимальна довжина. За замовчуванням це прокладки з пробілами. sпросто вказує, що це рядок. Щоб побачити, що це робить:

"%-2s" % "a"  == "a "
"%-2s" % " a" == " a"

Perl, 21 + 1 = 22 байти

say'';s/\^(.)/♥[A\1↓/

Біжи з -pпрапором. Замініть ♥необмеженим ESCбайтом ( 0x1b) та ↓вертикальною вкладкою ( 0x0b).

Вертикальна вкладка - ідея Мартіна Ендера. Це врятувало два байти! Спасибі.

JavaScript (ES6), 56 55 байт

s=>[/.(\^(.))?/g,/\^.(())/g].map(r=>s.replace(r,' $2'))

Зрозуміло, що виручає на допомогу. Перший замінює всі символи пробілами, якщо він не знайде каре, і в такому випадку він видаляє карету і зберігає персонажа після нього. (Ці символи гарантовано існують.) Другий - очевидний, щоб замінити кожну карету та її наступний символ пробілом.

Редагувати: Збережено 1 байт завдяки @Lynn, який розробив спосіб повторного використання рядка заміни для другої заміни, що дозволить відображати заміну через масив регулярних виразів.

Python 3, 157 101 98 85 83 74 байт

Це рішення відстежує, чи був попередній символ ^, а потім вирішує, виходити на перший чи другий рядок на основі цього.

Виводи як масив ['firstline', 'secondline'].

a=['']*2
l=0
for c in input():x=c=='^';a[l]+=c*x;a[~l]+=' '*x;l=x
print(a)

Збережено 13 15 байт завдяки @LeakyNun!

Збережено 7 байт завдяки @Joffan!

Python 2, 73 байти

l=['']*2;p=1
for c in input():b=c!='^';l[p]+=c*b;l[~p]+=' '*b;p=b
print l

Без регексу. Пам'ятає, чи був попередній символ ^, і поклав поточний символ у верхній або нижній рядок на основі цього, а пробіл в іншому.

Піт, 17 байт

CcsmX~Z1j;d;cQ\^2

             Q      input string
            c \^    split on '^'
   m                map for sections d:
    X      ;          insert a space at index:
     ~Z1                the old value of Z (initially 0), before setting Z to 1
                      into:
        j;d             the section joined on spaces
  s                 concatenate
 c              2   chop into groups of 2
C                   transpose

Повертає масив з 2 рядків. (Попередьте jприєднатись до них з новим рядком.)

Спробуйте в Інтернеті .

MATL , 18 байт

94=t1YSt~&vG*cw~Z)

Спробуйте в Інтернеті!

94=    % Take input implicitly. Create logical array of the same size that contains
       % true for carets, false otherwise
t      % Push a copy of this array
1YS    % Circularly shift 1 unit to the right. This gives an array that contains true
       % for the elements right after a caret (superindices), and false for the rest 
t~     % Push a copy and negate
&v     % Concatenate vertically. This gives a 2D, 2-row array
G*     % Push the input again, multiply with broadcast. This gives a 2D array in
       % which the first row contains the superindices (characters after a caret)
       % and 0 for the rest; and the second row contains the non-superindices and
       % 0 for the superindices
c      % Convert to char
w      % Swap. Brings to top the array containing true for carets and false otherwise
~      % Negate
Z)     % Use as logical index to remove rows that contain carets. Display implicitly

Ruby, 47 + 1 ( -nпрапор) = 48 байт

puts$_.gsub(/\^(.)|./){$1||" "},gsub(/\^./," ")

Виконайте так: ruby -ne 'puts$_.gsub(/\^(.)|./){$1||" "},gsub(/\^./," ")'

Пітон (2), 76 68 67 байт

-5 байт завдяки @LeakyNun

-3 байти завдяки @ KevinLau-notKenny

-1 байт завдяки @ValueInk

-0 байт завдяки @DrGreenEggsandIronMan

import re
lambda i,s=re.sub:[s("(?<!\^).\^?"," ",i),s("\^."," ",i)]

Ця анонімна функція лямбда приймає рядок введення як єдиний аргумент і повертає два вихідні рядки, розділені новим рядком. Щоб зателефонувати, дайте йому ім'я, написавши перед ним "f =".

Досить прямий вираз: Перша частина замінює наступне пробілом: будь-який персонаж і каре з моркви або лише чарка, але лише якщо перед ними немає ніякої карети. Друга частина замінює будь-яку каре в рядку та знаку після неї пробілом.

Опукла, 24 байти

®(?<!\^).\^?"SòNê®\^."Sò

Спробуйте в Інтернеті!

Сітківка, 16 байт

S`^
\^(.)
♥[A$1↓

Порт моєї відповіді Perl, вказаний Мартіном Ендером. Замініть ♥необмеженим ESCбайтом ( 0x1b) та ↓вертикальною вкладкою ( 0x0b).

оболонка + TeX + catdvi, 51 43 байт

tex '\empty$'$1'$\end'>n;catdvi *i|head -n2

Використовує texдля набору гарної математики, а потім використовує catdviдля подання тексту. Команда head видаляє небажаний (нумерація сторінок, виведення нових рядків), який є в іншому випадку.

Редагувати: Навіщо робити довгі, правильні речі та перенаправлення, /dev/nullколи ви можете ігнорувати побічні ефекти та писати в один лист?

Приклад

Вхід: abc^d+ef^g + hijk^l - M^NO^P (Ag^+)

Вихід TeX (обрізаний до рівняння): Кінцевий вихід:

   d   g     l  N P   +
abc +ef +hijk -M O (Ag )

Припущення: Почніть з порожнього dir (або конкретно з dir без імені, що закінчується на "i"). Введення - це єдиний аргумент сценарію оболонки. Введення не є порожнім рядком.

Хтось скаже мені, якщо це правило зловживання, особливо catdvi.

Haskell, 74 56 55 байт

g('^':c:r)=(c,' '):g r
g(c:r)=(' ',c):g r
g x=x
unzip.g

Повертає пару рядків. Приклад використання: unzip.g $ "abc^d+e:qf^g + hijk^l - M^NO^P: (Ag^+)"->(" d g l N P + ","abc +e:qf + hijk - M O : (Ag )")

gскладає список пар, де перший елемент є знаком у верхній рядку, а другий - символом у нижньому рядку. unzipперетворює це на пару списків.

Редагувати: @xnor запропонував unzipзберегти 18 байт. @Laikoni знайшов ще один байт для збереження. Спасибі!

Perl, 35 байт

34 байти код + 1 для -p

$_=s/\^(.)|./$1||$"/ger.s/\^./ /gr

Використання

perl -pe '$_=s/\^(.)|./$1||$"/ger.s/\^./ /gr' <<< 'abc^d+ef^g + hijk^l - M^NO^P (Ag^+)'
   d   g       l    N P    + 
abc +ef  + hijk  - M O  (Ag )

Примітка: Це точно так само, як відповідь Value Ink , яку я шпигував згодом. Видаляється, якщо потрібно, оскільки це насправді не додає до рішення Ruby.

Java 8 лямбда, 132 128 112 символів

i->{String[]r={"",""};for(char j=0,c;j<i.length();j++){c=i[j];r[0]+=c==94?i[++j]:32;r[1]+=c==94?32:c;}return r;}

Необоротна версія виглядає так:

public class Q86647 {

    static String[] printExponents(char[] input) {
        String[] result = {"",""};
        for (char j = 0, c; j < input.length(); j++) {
            c = input[j];
            result[0] += c == 94 ? input[++j] : 32;
            result[1] += c == 94 ? 32 : c;
        }
        return result;
    }
}

Виводиться як масив, просто перевіряючи, чи є карета, і якщо так, наступний символ буде розміщений у верхньому рядку, інакше буде пробіл.

Оновлення

Замінено символів з їх значеннями ascii, щоб зберегти 4 символи.

Дякуємо @LeakyLun за те, що він вказав на використання масиву char як вхідного.

Також спасибі @KevinCruijssen за переключення intна, charщоб зберегти ще кілька символів.

Кокосовий горіх , 122 114 96 байт

Змінити: 8 26 байт вниз за допомогою Leaky Nun.

def e(s,l)=''==l and s or"^"==l[0]and l[1]+e(s+' ',l[2:])or' '+e(s+l[0],l[1:])
f=print..e$('\n')

Отже, як я дізнався сьогодні, у python є термінальний умовний оператор, або насправді два з них: <true_expr> if <condition> else <false_expr>і <condition> and <true_expr> or <false_expr>останній приходить з одним char менше.
Версію, відповідна пітону, можна уявити .

Перша спроба:

def e(s,l):
 case l:
  match['^',c]+r:return c+e(s+' ',r)
  match[c]+r:return' '+e(s+c,r)
 else:return s
f=print..e$('\n')

Дзвінки з f("abc^d+ef^g + hijk^l - M^NO^P (Ag^+)")відбитками

   d   g       l    N P    +
abc +ef  + hijk  - M O  (Ag )

Хтось ще спробував гольф у кокосі? Він збагачує python більш функціональними поняттями програмування, такими як узгодження шаблонів і з'єднання функцій (з ..), що використовуються вище. Оскільки це моя перша спроба кокосового горіха, будь-які поради будуть вдячні.

Це безумовно можна скоротити, оскільки будь-який дійсний код python також є дійсним кокосовим горіхом, а короткі відповіді python були розміщені, проте я намагався знайти суто функціональне рішення.

Діалог APL, 34 байти

{(0 1=⊂b/¯1⌽b){⍺\⍺/⍵}¨⊂⍵/⍨b←⍵≠'∧'}

Він повертає двоелементний вектор з двома лініями

Пробіг зразків (удар вгору попереду полягає у форматуванні двоелементного вектора для споживання людиною):

      ↑{(0 1=⊂b/¯1⌽b){⍺\⍺/⍵}¨⊂⍵/⍨b←⍵≠'∧'}'abc∧d+ef∧g + hijk∧l - M∧NO∧P (Ag∧+)'
   d   g       l    N P    + 
abc +ef  + hijk  - M O  (Ag )

PowerShell v2 +, 88 83 байти

-join([char[]]$args[0]|%{if($c){$_;$b+=' '}elseif($_-94){$b+=$_;' '}$c=$_-eq94});$b

Трохи довше інших, але демонструє трохи магії PowerShell і трохи іншу логіку.

По суті те саме поняття, що й відповідь Python - ми повторюємо вхідний символ за символом, пам’ятаємо, чи був попередній знак каретою ( $c) і ставимо поточний символ у відповідне місце. Однак логіка та метод визначення місця виведення обробляються дещо інакше, і без кортежу чи окремих змінних - ми перевіряємо, чи попередній символ був каретою, і якщо так, виведіть персонаж у конвеєр і з'єднайте простір на $b. В іншому випадку ми перевіряємо, чи є поточний персонаж каретою, elseif($_-94)і доки його немає, ми з'єднуємо поточний символ на $bта виводимо пробіл у конвеєр. Нарешті, ми встановимо, чи є поточний персонаж піклуванням для наступного кругообігу.

Ми збираємо цих персонажів з трубопроводу разом у парени, інкапсулюємо їх в а, -joinщо перетворює їх у рядок, і залишаємо це разом з $bна конвеєрі. Висновок в кінці мається на увазі між новим рядком між ними.

Для порівняння, ось прямий порт відповіді Python @ xnor на 85 байт :

$a=,''*2;[char[]]$args[($l=0)]|%{$a[!$l]+="$_"*($c=$_-ne94);$a[$l]+=' '*$c;$l=!$c};$a

Гема, 42 41 символ

\^?=?@set{s;$s }
?=\ @append{s;?}
\Z=\n$s

Gema обробляє введення як потік, тому вам доведеться вирішити його за один прохід: перший рядок записується негайно як оброблений, другий рядок збирається в змінну $ s, потім виводиться в кінці.

Проба зразка:

bash-4.3$ gema '\^?=?@set{s;$s };?=\ @append{s;?};\Z=\n$s' <<< 'abc^d+ef^g + hijk^l - M^NO^P (Ag^+)'
   d   g       l    N P    +  
abc +ef  + hijk  - M O  (Ag )

Кориця гумка, 21 байт

0000000: 5306 6533 bd92 d1db 8899 8381 a2f8 8f8c  S.e3............
0000010: 1230 249e a1                             .0$..

Без конкуренції Спробуйте в Інтернеті.

Пояснення

Я не дуже гольфіст з реджексу, тому, мабуть, є кращий спосіб зробити це.

Рядок декомпресується на:

S(?<!\^)[^^]& &\^&`S\^.& 

(відзначте пробіл)

Перший Sетап отримує вхід і використовує негативний погляд позаду, щоб замінити всі символи, крім карток, без попередньої каретки на пробіл, а потім видаляє всі кадри. Потім він негайно виводить модифікований рядок введення з новим рядком і видаляє цей Sетап. Оскільки STDIN зараз вичерпаний, і попередній етап не надав жодного вводу, наступний Sетап знову отримує останній рядок STDIN, а потім замінює всі опіки, за якими слідує будь-який символ, на пробіл і виводи, які.

У пседе-коді Perl:

$first_stage_sub_1 = ($input =~ s/(?<!\^)[^^]/ /gr);
$first_stage_sub_2 = ($first_stage_sub_1 =~ s/\^//gr);
print $first_stage_sub_2, "\n";

$second_stage_sub = ($input =~ s/\^./ /gr);
print $second_stage_sub, "\n";

J , 28 27 байт

0|:t#]{."0~_1-_1|.t=.'^'~:]

Спробуйте в Інтернеті!

                  t=.'^'~:]    0 for ^, 1 for the rest, define t
              _1|.             Shift right, now zeroes are for superscripts         
     ]{."0~_1-                 Prepend that many spaces to each character
   t#                          Remove the rows with carets
0|:                            Transpose

Має бути кращий спосіб ...