Довідка! Мій повністю автоматизований світло від Darks Separator V3001.01 зламався! :(

Керівні принципи

Завдання

Напишіть програму, яка візьме введення масиву (або списку на деяких мовах) будь-якої кількості рядків, що є або буквою L, або буквою D (представляє світло або темноту) і виведе масив, що містить два масиви, один з усіма L, і один з усіма D.

Правила

• Це код гольфу, тому найкоротша відповідь у байтах виграє
• Вхідні дані містять лише великі літери
• На виході має бути така ж кількість L, як і на вході, те саме стосується і D
• Вхід може мати лише один елемент (а може навіть і нульовий елемент)
• Якщо в одному або обох вихідних масивах немає елементів, виведіть порожній список (у деяких мовах це може означати, що вам потрібно вивести рядок)
• Завжди першим масивом буде масив L

Приклад виводу:

["L","D","L","D","D"] -> [["L","L"],["D","D","D"]]

["L","L","L"] -> [["L","L","L"],[]]

["D","D"] -> [[],["D","D"]]

[] -> [[],[]]

APL, 8 байт

'DL'~⍨¨⊂

Пояснення:

• ⊂: вкладений вхід
• ~⍨¨: без кожного
• 'DL': 'D' і 'L'

Приклади:

      ('DL'~⍨¨⊂) 'LDLDD'
┌──┬───┐
│LL│DDD│
└──┴───┘
      ('DL'~⍨¨⊂) 'LLL'
┌───┬┐
│LLL││
└───┴┘
      ('DL'~⍨¨⊂) 'DD'
┌┬──┐
││DD│
└┴──┘
      ('DL'~⍨¨⊂) ''
┌┬┐
│││
└┴┘

Python 3 , 37 байт

lambda a:[[c]*a.count(c)for c in"LD"]

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

Haskell , 28 байт

f l=[filter(==[c])l|c<-"LD"]

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

Якщо вхід може бути списком символів, []навколо cможна видалити.

PHP, 46 байт

Передбачається даний список: $arr = ['L','L','D','D','L','D','D','D','D','L'];

foreach($arr as $b){$a[$b][]=$b;};print_r($a);

Математика, 27 байт

Rest/@Gather[{L,D}~Join~#]&

Чиста функція, приймаючи список Ls і Ds (символи, а не символи / рядки) як вхідні та повертаючи список з двох списків. Наприклад,

Rest/@Gather[{L,D}~Join~#]& @ {D, L, L, D, L}

повертає {{L, L, L}, {D, D}}. Спробуйте в Інтернеті!

Gatherсам по собі близький до того, що ми хочемо, але не відповідає специфікації двома способами: він не створює порожніх списків, якщо для введення відсутня Ls або Ds, і він не завжди сортує Ls зліва. Заміна вхід #з {L,D}~Join~#вирішує обидві проблеми відразу: це означає , що буде принаймні один , Lі щонайменше один D, а Lз повернуть перший так як Lбула виявлена в першу чергу. Rest/@потім видаляє початковий Lі D.

(Я спробував рішення, використовуючи Count, але через проблеми з currying воно не здалося коротшим: ±q_:=#~Table~Count[q,#]&/@{L,D}31 байт.)

Haskell, 32 байти

import Data.List
partition(>"K")

Просто нудна бібліотечна функція.

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

Рубін , 26 байт

->x{x.partition{|e|e==?L}}

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

PHP7, 52 45 байт

-7 байт завдяки @ Jörg Hülsermann

foreach($argv as$a)$$a[]=$a;print_r([$L,$D]);

Використовувати з CLI як php -r a.php L L L D D L D

Сценарій проходить через надані аргументи і додає їх до масиву на основі його значення.

Лист звичайний, 66 65 байт

(defun f(x)`(,(remove"D"x :test'equal),(remove"L"x :test'equal)))

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

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

Лист звичайний, 42 41 40 байт

(defun f(x)(mapcar'remove'(D L)`(,x,x)))

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

(f '(D D L L D L D)) ; => ((L L L) (D D D D)) 

Ракетка , 48 байт

(compose list((curry partition)(λ(x)(eq? x'L))))

Просто застосуйте цю анонімну функцію до, наприклад, '(L D L D D L)

Математика, 22 18 байт

4 байти, збережені генієм CalculatorFeline!

Cases@@@{#|L,#|D}&

Спробуйте в Інтернеті або в пісочниці Wolfram !

Введення - це список символів Lі D- не рядки, а самі букви, як у відповіді Грега Мартіна . Синтаксис #|Lє скороченим для Alternatives[#,L], але @@@синтаксис замінює голову Alternativesна Cases, тому цей код еквівалентний {Cases[#,L],Cases[#,D]}&.

Java 8, 105 байт

import java.util.stream.*;a->Stream.of(a).collect(Collectors.groupingBy("D"::equals)).values().toArray();

Поради вітаються.

Нове для PPCG, чи потрібно я включати import java.util.*;import java.util.stream.*;до числа байтів?

Не змагаючись, він не створює порожні списки з порожнім входом. Дякуємо Невай за збереження деяких байт.

Пролог (SWI) , 42 , 37 байт

l('L').
w(L,D,W):-partition(l,W,L,D).

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

Враховуючи, що Wце список прання,w/3 об'єднається Lі перейде Dв списки Lights and Darks відповідно, розділивши прання на присудок, який вдається, якщо предмет є Light.

[Редагувати: гольф -5 завдяки Fatalize ]

Japt , 13 12 10 байт

2Æf¥"LD"gX

Тестуйте його ( -Qпрапор лише для цілей візуалізації)

Пояснення

Неявне введення масиву U.

2Æ

Створіть масив [0,1]і передайте кожен елемент через функцію, Xбудучи поточним елементом.

f¥

Фільтр U, перевіряючи рівність ...

"LD"gX

... з символом у рядку LDв індексі X.

Pyth , 10 9 байт

mc@dQ1"LD

Тестовий набір .

05AB1E , 8 байт

'Lù'DÃ)

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

Javascript (ES6), 37 байт

Це ґрунтується на відповіді (тепер видалено) Javascript (ES6).

a=>[(b=c=>a.filter(d=>c==d))`L`,b`D`]

Негольована версія:

function(array) {
  function filter(character){
    return array.filter(function(d) {
      return character == d;
    });
  }
  return [filter("L"), filter("D")];
}

Приклад фрагмента коду:

f=

a=>[(b=c=>a.filter(d=>c==d))`L`,b`D`]

console.log(f(["L", "D", "L", "D", "D"]))

C #, 61 байт

using System.Linq;a=>new[]{a.Where(c=>c<69),a.Where(c=>c>68)}

Повна / відформатована версія:

using System;
using System.Linq;

class P
{
    static void Main()
    {
        Func<char[], System.Collections.Generic.IEnumerable<char>[]> f =
            a => new[] { a.Where(c => c < 69), a.Where(c => c > 68) };

        Console.WriteLine(string.Join(", ", f(new[]{ 'L', 'D', 'L', 'D', 'D' }).SelectMany(a => a.Select(c => c))));

        Console.ReadLine();
    }
}

F # , 37 байт

let f s=List.partition(fun a->a="L")s

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

Приймає введення як список рядків і повертає два списки, перший з елементами, де fun a -> a="L"є істинним, а другий з елементами, які призводять до помилки.

Желе , 10 байт

ẎfЀ⁾LDW€€

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

У рядку Jelly є список 1-рядкових рядків Python, напр ['a', 'b', 'c']. Ось чому ви отримуєте такий результат, як [[['L'], ['L']], [['D'], ['D'], ['D']]], оскільки 1-char струнні желейні ведуть себе так само.

Не працює як повноцінна програма, отже, ÇŒṘвнизу.

Персе , 21 байт

part(i,fn(x){x=="L"})

Я може або не може реалізувати функцію розбиття списку спеціально для цього завдання. Приймає вхід як масив рядків.

Лушпиння , 7 байт

Mof-"DL

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

Пояснення

Mof-"DL
M   "DL    For each character in ['D','L']:
 of-         keep only those strings that are not empty if that character is removed

Java 8, 110 106 байт

a->{String[]r={"",""};for(char c:a)r[c/69]+=c;return new char[][]{r[1].toCharArray(),r[0].toCharArray()};}

-4 байти завдяки @Nevay .

Пояснення:

Спробуйте тут.

a->{                      // Method with char-array parameter and 2D char-array return-type
  String[]r={"",""};      //  Two Strings in an array
  for(char c:a)           //  Loop over the characters of the input
    r[c/69]+=c;           //   Append either of the two String with the character
                          //   c/69 will result in 0 for 'D' and 1 for 'L'
                          //  End of loop (implicit / single-line body)
  return new char[][]{    //  Return a 2D character-array
    r[1].toCharArray(),   //   With the String for L's converted to a char-array
    r[0].toCharArray()};  //   and String D's converted to a char-array
}                         // End of method

Октава, 21 байт

@(A){A(a=A>72),A(~a)}

Введення - це масив символів, вихід - масив комірок. Перероблено з моєї відповіді тут .

Виконання зразка на ideone .

R , 35 байт

x=scan(,'');list(x[i<-x>'D'],x[!i])

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

Читає від stdin.

Джулія, 26 байт

g(s)=s[s.=="L"],s[s.=="D"]

Haskell (Lambdabot), 41 байт

reverse.map tail.group.sort.("LD"++).join

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

PowerShell , 27 байт

($args-eq'L'),($args-eq'D')

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

Редагувати: раніше $args.where({$_-eq'L'},'sp')на 28 байт. Може бути $args.where({+"0x$_"},'sp')за 27, якщо не за правилом, що L повинні бути першими.

CJam , 14 байт

"LD"qf{1$e=*}`

Введення - це список символів (рядок), вихід - список списків символів (список рядків).

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

Пояснення:

"LD"  e# Push the string "LD"                  | "LD"
q     e# Push the input                        | "LD" "LDLLDLDDL"
f{    e# Foreach char in "LD", push input and: | ['L "LDLLDLDDL"
  1$  e#   Copy from 1 back                    | ['L "LDLLDLDDL" 'L
  e=  e#   Count occurences                    | ['L 5
  *   e#   Repeat character                    | ["LLLLL"
}     e# End                                   | ["LLLLL" "DDDD"]
`     e# Stringify:                            | "[\"LLLLL\" \"DDDD\"]"
e# Implicit output: ["LLLLL" "DDDD"]

Perl 5 , 70 байт

$"='","';@L=(L)x y/L//;@D=(D)x y/D//;$_="[[\"@L\"],[\"@D\"]]";s/""//g

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