Membantu! Lampu Sepenuhnya Otomatis Saya Dari Pemisah Kegelapan V3001.01 rusak! :(

Pedoman

Tugas

Tulis program yang akan mengambil input dari array (atau daftar dalam beberapa bahasa) dari jumlah string apa pun yang merupakan huruf L atau huruf D (mewakili cahaya atau gelap) dan menghasilkan array yang berisi dua array, satu dengan semua L, dan satu dengan semua D's.

Aturan

• Ini kode golf sehingga jawaban tersingkat dalam byte menang
• Input hanya akan mengandung huruf kapital
• Harus ada jumlah L yang sama di output seperti yang ada di input, sama berlaku untuk D
• Input mungkin hanya memiliki satu elemen (atau bahkan mungkin nol elemen)
• Jika salah satu atau kedua array output tidak mengandung elemen, output daftar kosong (dalam beberapa bahasa ini mungkin berarti Anda perlu menampilkan string)
• Selalu punya array pertama menjadi array L.

Contoh output:

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

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

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

[] -> [[],[]]

APL, 8 byte

'DL'~⍨¨⊂

Penjelasan:

• ⊂: input terlampir
• ~⍨¨: tanpa masing-masing
• 'DL': 'D' dan 'L'

Contoh:

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

Python 3 , 37 byte

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

Cobalah online!

Haskell , 28 byte

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

Cobalah online!

Jika input dapat berupa daftar karakter, []sekitar cdapat dihapus.

PHP, 46 byte

Diasumsikan daftar yang diberikan adalah: $arr = ['L','L','D','D','L','D','D','D','D','L'];

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

Mathematica, 27 byte

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

Fungsi murni mengambil daftar Ls dan Ds (simbol, bukan karakter / string) sebagai input dan mengembalikan daftar dua daftar. Sebagai contoh,

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

kembali {{L, L, L}, {D, D}}. Cobalah online!

Gatherdengan sendirinya dekat dengan apa yang kita inginkan, tetapi gagal memenuhi spesifikasi dalam dua cara: itu tidak menghasilkan daftar kosong jika inputnya hilang Latau Ds, dan itu tidak selalu urutkan Lke kiri. Mengganti input #dengan {L,D}~Join~#menyelesaikan kedua masalah sekaligus: itu berarti akan ada setidaknya satu Ldan setidaknya satu D, dan Ls akan dikembalikan terlebih dahulu sejak Lpertama kali ditemukan. Rest/@kemudian menghapus inisial LdanD .

(Saya mencoba menggunakan solusi Count, tetapi karena masalah kari, sepertinya tidak lebih pendek: ±q_:=#~Table~Count[q,#]&/@{L,D}31 byte.)

Haskell, 32 byte

import Data.List
partition(>"K")

Hanya fungsi perpustakaan yang membosankan.

Cobalah online!

Ruby , 26 byte

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

Cobalah online!

PHP7, 52 45 byte

-7 byte terima kasih kepada @ Jörg Hülsermann

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

Gunakan dengan CLI sebagai php -r a.php L L L D D L D

Script berjalan melalui argumen yang disediakan dan menambahkannya ke array berdasarkan nilainya.

Common Lisp, 66 65 byte

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

Cobalah online!

Jika, alih-alih string, kami menggunakan simbol, maka itu jauh lebih pendek:

Common Lisp, 42 41 40 byte

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

Cobalah online!

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

Raket , 48 byte

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

Cukup terapkan fungsi anonim ini ke, misalnya, '(L D L D D L)

Mathematica, 22 18 byte

4 byte disimpan oleh jenius CalculatorFeline!

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

Cobalah online , atau di kotak pasir Wolfram !

Input adalah daftar simbol Ldan D- bukan string, hanya hurufnya sendiri, seperti dalam jawaban Greg Martin . Sintaksnya #|Ladalah singkatan Alternatives[#,L], tetapi @@@sintaks menggantikan kepala Alternativesdengan Cases, jadi kode ini setara dengan {Cases[#,L],Cases[#,D]}&.

Java 8, 105 byte

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

Tips diterima.

Baru di PPCG, apakah saya harus memasukkan import java.util.*;import java.util.stream.*;dalam jumlah byte?

Non-bersaing, itu tidak membuat daftar kosong dengan input kosong. Terima kasih kepada Nevay untuk menghemat beberapa byte.

Prolog (SWI) , 42 , 37 byte

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

Cobalah online!

Mengingat bahwa Wini adalah daftar pencucian, masing-masing w/3akan menyatukan Ldan Dmasuk ke dalam daftar Cahaya dan Gelap, dengan mempartisi pencucian tersebut dengan predikat yang berhasil jika suatu item adalah Cahaya.

[Sunting: golf -5 berkat Fatalize ]

Japt , 13 12 10 byte

2Æf¥"LD"gX

Mengujinya ( -Qmenandai untuk tujuan visualisasi saja)

Penjelasan

Input array secara implisit U.

2Æ

Hasilkan array [0,1]dan lewati setiap elemen melalui fungsi, dengan Xmenjadi elemen saat ini.

f¥

Saring Udengan memeriksa persamaan ...

"LD"gX

... dengan karakter dalam string LDdi index X.

Pyth , 10 9 byte

mc@dQ1"LD

Suite uji .

05AB1E , 8 byte

'Lù'DÃ)

Cobalah online!

Javascript (ES6), 37 byte

Ini didasarkan pada jawaban Javascript (ES6) yang sekarang dihapus.

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

Versi tidak disatukan:

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

Cuplikan kode contoh:

f=

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

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

C #, 61 byte

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

Versi Lengkap / Diformat:

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 byte

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

Cobalah online!

Mengambil input sebagai daftar string, dan mengembalikan dua daftar, yang pertama dengan elemen mana fun a -> a="L"benar dan yang lainnya dengan elemen yang menghasilkan false.

Jelly , 10 byte

ẎfЀ⁾LDW€€

Cobalah online!

Dalam Jelly, string adalah daftar string Python 1-char, misalnya ['a', 'b', 'c']. Itu sebabnya Anda mendapatkan hasil seperti [[['L'], ['L']], [['D'], ['D'], ['D']]], karena string 1-char Jelly berperilaku sama.

Tidak berfungsi sebagai program lengkap, karenanya ÇŒṘdi bagian bawah.

Perse , 21 byte

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

Saya mungkin atau mungkin belum menerapkan fungsi partisi daftar khusus untuk tantangan ini. Mengambil input sebagai array string.

Sekam , 7 byte

Mof-"DL

Cobalah online!

Penjelasan

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 byte

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

-4 byte terima kasih kepada @Nevay .

Penjelasan:

Coba di sini.

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

Oktaf, 21 byte

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

Input adalah array karakter, output adalah array sel. Daur ulang dari jawaban saya di sini .

Contoh eksekusi di ideone .

R , 35 byte

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

Cobalah online!

Baca dari stdin.

Julia, 26 byte

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

Haskell (Lambdabot), 41 byte

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

Cobalah online!

PowerShell , 27 byte

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

Cobalah online!

Sunting: sebelumnya $args.where({$_-eq'L'},'sp')selama 28 byte. Bisa jadi $args.where({+"0x$_"},'sp')untuk 27 jika bukan karena aturan bahwa L's harus didahulukan.

CJam , 14 byte

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

Input adalah daftar karakter (string), output adalah daftar daftar karakter (daftar string).

Cobalah online!

Penjelasan:

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

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

Cobalah online!