도움! 내 다크 구분 V3001.01에서 완전히 자동화 된 조명 돌파! :(

지침

태스크

문자 L 또는 문자 D (빛 또는 어둡게 나타남) 인 문자열의 배열 (또는 일부 언어로 된 목록)을 입력하고 두 배열을 포함하는 배열을 출력하는 프로그램을 작성하십시오. 모든 L과 하나, 모든 D와 함께

규칙

• 코드 골프이므로 바이트 단위의 최단 답변이 승리합니다.
• 입력은 항상 자본을 포함합니다
• 입력에있는 것과 동일한 수의 L이 출력에 있어야하며, D에 대해서도 동일합니다.
• 입력은 하나의 요소만을 가질 수 있습니다 (또는 아마도 0 요소).
• 출력 배열 중 하나 또는 둘 다에 요소가없는 경우 빈 목록을 출력하십시오 (일부 언어에서는 문자열을 출력해야 함을 의미 할 수 있음)
• 항상 첫 번째 배열은 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'~⍨¨⊂) ''
┌┬┐
│││
└┴┘

파이썬 3 , 37 바이트

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

온라인으로 사용해보십시오!

하스켈 , 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커링 문제로 인해 더 짧은 것처럼 보이지는 않습니다 ±q_:=#~Table~Count[q,#]&/@{L,D}. 31 바이트입니다.)

하스켈, 32 바이트

import Data.List
partition(>"K")

지루한 라이브러리 기능.

온라인으로 사용해보십시오!

루비 , 26 바이트

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

온라인으로 사용해보십시오!

PHP7, 52 45 바이트

@ Jörg Hülsermann 덕분에 -7 바이트

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 바이트

CalculatorFeline의 천재로 4 바이트 절약!

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

온라인 또는 Wolfram 샌드 박스 에서 사용해보십시오 !

입력 기호의 목록 L과 D문자열이 아니라,처럼 자신의 바로 문자, - 그렉 마틴의 대답 . 구문 #|L은 축약 형 Alternatives[#,L]이지만 @@@구문은 헤드를 Alternatives로 대체하므로이 Cases코드는와 동일합니다 {Cases[#,L],Cases[#,D]}&.

자바 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.*;하면 바이트 수 에 포함시켜야 합니까?

경쟁이 아닌 경우 빈 입력으로 빈 목록을 만들지 않습니다. 바이트를 절약 해 준 Nevay에게 감사합니다.

프롤로그 (SWI) , 42 , 37 바이트

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

온라인으로 사용해보십시오!

을 고려하면 W 세탁 목록 인 경우, 항목이 조명 인 경우 성공하는 술어에 대해 세탁을 분할하여 조명과 어둠의 목록으로 각각 w/3통일 L하고 D나열합니다.

[편집 : Fatalize 덕분에 골프 -5 ]

apt , 13 12 10 바이트

2Æf¥"LD"gX

그것을 테스트 ( -Q시각화 목적으로 만 플래그 지정)

설명

배열의 암시 적 입력 U.

2Æ

배열을 생성하고 현재 요소 인 [0,1]함수를 통해 각 요소를 전달 X하십시오.

f¥

U평등을 확인하여 필터링 ...

"LD"gX

... 문자열의 문자가 LDindex에 X있습니다.

Pyth , 10 9 바이트

mc@dQ1"LD

테스트 스위트 .

05AB1E , 8 바이트

'Lù'DÃ)

온라인으로 사용해보십시오!

자바 스크립트 (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"가 true이고 다른 목록은 요소가 false입니다.

젤리 , 10 바이트

ẎfЀ⁾LDW€€

온라인으로 사용해보십시오!

Jelly에서 문자열은 1- 문자 파이썬 문자열의 목록입니다 (예 :) ['a', 'b', 'c']. [[['L'], ['L']], [['D'], ['D'], ['D']]]1-char Jelly 문자열이 동일하게 작동하기 때문에과 같은 출력을 얻는 이유 입니다.

전체 프로그램으로 작동하지 않으므로 ÇŒṘ하단에 있습니다.

Perse , 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

자바 8 110 106 바이트

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

@Nevay 덕분에 -4 바이트 .

설명:

여기에서 시도하십시오.

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

Input is an array of characters, output is a cell array. Recycled from my answer here.

Sample execution on ideone.

R, 35 bytes

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

Try it online!

Reads from stdin.

Julia, 26 bytes

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

Haskell (Lambdabot), 41 bytes

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

Try it online!

PowerShell, 27 bytes

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

Try it online!

Edit: previously $args.where({$_-eq'L'},'sp') for 28 bytes. Could be $args.where({+"0x$_"},'sp') for 27 if not for the rule that L's must come first.

CJam, 14 bytes

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

Input is a list of characters (string), output is a list of lists of characters (list of strings).

Try it online!

Explanation:

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

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

Try it online!