Bir dize verildiğinde, onu üç karakterlik gruplara ayırmanız gerekir ( _sonunda dolgu yaparak).

İlgili , ama yine de farklı.

Örnek G / Ç:

• 'abcde' -> 'abc', 'de_'

• '1234' -> '123', '4__'

• '' -> [] or falsey value

• 'Three spree!' -> 'Thr', 'ee ', 'spr', 'ee!'

• 6 MB dize

Bu bir kod golf , bu yüzden en az bayt kazanacak!

Düzenleme: Son olarak, çıktı sınırsızdır .

05AB1E , 9 8 bayt

…___«3ô¨

Çevrimiçi deneyin! veya Test Paketi olarak

açıklama

…___«      # append "___" to input
     3ô    # split into groups of 3
       ¨   # discard the last group

Python 3, 58 47 34 bayt

Eminim başka biri daha iyisini yapabilir. İçin teşekkürler Jo Kral -11 -24 bayt!

Çıktı sınırsız, cehennemi tuple hoş geldiniz. Boş girdideki boş listeyi ( yanlış ) döndürür

lambda x:[*zip(*[iter(x+"__")]*3)]

TIO

JavaScript, 25 bayt

s=>`${s}__`.match(/.../g)

Dene

Perl 5 , 16 15 bayt

"@_\__"=~/.../g

Çevrimiçi deneyin!

APL + WIN 36 24 22 bayt

Çıktının kısıtlanması ve @ Adám'ın ilk yorumunda APL + WIN'de çalışmak üzere değiştirilen kod ve ikinci yorumuyla birlikte bir 2 kod daha kullanılması sonucu 12 bayt kaydedildi. Teşekkürler.

(⌈(↑⍴s)÷3)3⍴(s←⎕),'__'

Dizenin girilmesini ister ve sonucu nx3 dizisi olarak verir

Çevrimiçi deneyin! Dyalog Classic'in izniyle

JavaScript, 51 50 48 27 25

b=>(b+"__").match(/.../g)

Çevrimiçi deneyin!

Perl 6 , 19 bayt

{$_~"__"~~m:g/.../}

Çevrimiçi deneyin!

Dizeyi iki alt çizgiyle doldurur ve ardından dizeyi üç karakterlik parçalara böler. Eşleşme nesneleri dizisi olarak döner.

Japt , 8 bayt

Boş dizeyi + 1 bayt. Dolgu karakterimizi seçebilirsek 2 kaydedebiliriz.

©ò3 ú'_3

Dene

©ò3 ú'_3     :Implicit input of string
©            :Logical AND with
 ò3          :Split into chunks of 3
    ú'_3     :Right pad each with "_" to length 3

Stax , 7 bayt

é☻εgP▀╪

Çalıştır ve hata ayıkla

Boş bir dize girişi için sonuç, stax'taki bir falsey değeri olan boş bir dizidir.

CJam , 11 bayt

q'_3*+3/);p

Çevrimiçi deneyin!

Boş giriş için bu, boş olan boş bir dize verir.

Nasıl çalışır

q     e# Read input as a string
'_    e# Push char '_'
3*    e# String formed by that char repeated 3 times
+     e# Concatenate to input string
3/    e# Split in groups of 3, the last of which may be shorter. Gives array of strings
);    e# Detach last string from the array and delete it
p     e# Print string representation of the array

Retina 0.8.2 , 10 bayt

$
__
!`...

Çevrimiçi deneyin! Bağlantı, test senaryolarını içerir. Açıklama:

$
__

_Son grubun doldurulması gerekiyorsa, iki saniye ekleyin .

!`...

Sayıdan ziyade maçların çıktısını almak için mümkün olduğunca üç grupla eşleştirin. (Retina 1'de Lbunun yerine !.)

C (gcc) , 67 bayt

i;f(char*_){for(;*_;puts(""))for(i=3;i--;)putchar(*_?*_++:95);_=0;}

Çevrimiçi deneyin!

Her zaman bir falsey değeri (0) döndürür.

Wolfram Dili (Mathematica) , 28 21 bayt

-7: Artık Falseboş girişte falsy ( ) değeri gerektirmiyor

Partition[#,3,1,1,_]&

Çevrimiçi deneyin!

Girdi olarak karakterlerin bir listesini alır. BlankS ( _) ile doldurulmuş karakterlerin 3 parçalı bir listesini döndürür .

34 27 bayt

StringPartition[#<>"__",3]&

Çevrimiçi deneyin!

String girişi, string çıktılarının listesi

Jöle , 9 bayt

s3o€“___”

Karakterlerin bir listesini veren (boş bir girdi boş çıktı verir) bir karakter listesini kabul eden monadic Link.

Çevrimiçi deneyin!

Nasıl?

s3o€“___” - Link: list of characters
s3        - split into chunks of three
   €      - for each chunk:
  o       -   OR (vectorises):
    “___” -     list of characters = ['_', '_', '_']

Notlar: boş giriş kenarı talebini işlemek için gereklidir. Tam bir program bir iz bırakabilir , ancak burada tam bir programın yazdırma davranışı her şeyi bir araya getirdiği için bunu yapamayız.
€
”

Eşdeğer 9:

o3ÐƤ“___”

Dene

Alternatif 9:

;“___”s3Ṗ

Dene

J , 16 bayt

[:}:_3]\'___',~]

Çevrimiçi deneyin!

K (ok) , 19 17 bayt

Ngn sayesinde -2 bayt!

{-1_0N 3#x,"___"}

Çevrimiçi deneyin!

Java 10, 116113 bayt

s->{s+="__";int l=s.length()/3,i=l;var r=new String[l];for(;i-->0;)r[i]=s.substring(i*3,i*3+3);return l<1?0>1:r;}

Çevrimiçi deneyin.

Veya 104 101 bayt boş bir dizi yerine eğer falseçıktı olarak verilir ..

s->{s+="__";int l=s.length()/3;var r=new String[l];for(;l-->0;)r[l]=s.substring(l*3,l*3+3);return r;}

Çevrimiçi deneyin.

Açıklama:

s->{                             // Method with String as both parameter and return-type
  s+="__";                       //  Append two "_" to the input-String
  int l=s.length()/3;            //  Get the length, integer-divided by 3
  var r=new String[l];           //  Create a string-array with that many parts
  for(;l-->0;)                   //  Loop `l` in the range (l, 0]:
    r[l]=                        //   Set the `l`'th value of the array to:
         s.substring(l*3,l*3+3); //   Get the substring of size 3 from index `l*3` from `s`
  return r;}                     //  Return the array

Ruby, 73 42 bayt

a=gets
a.length!=0?a.scan(/.{1,3}/).map{|s|(s+'_'*3)[0,3]}:'falsey value'

Düzenleme: Falsey değeri gerekli olmadığı için:

gets.scan(/.{1,3}/).map{|s|(s+'_'*3)[0,3]}

C # (Visual C # Etkileşimli Derleyici) , 74 bayt

Girişin uzunluğu 3 katsayısı değilse, yazdırıldıklarından emin olmak için girişin sonuna iki alt çizgi '_' ekleyin.

s=>Enumerable.Range(0,(s.Length+2)/3).Select(i=>(s+"__").Substring(i*3,3))

Çevrimiçi deneyin!

Kotlin , 34 bayt

{"${it}__".chunked(3).dropLast(1)}

Çevrimiçi deneyin!

C (gcc) , 55 bayt

i;f(char*s){for(;i%4|*s;)putchar(++i%4?*s?*s++:95:10);}

Çevrimiçi deneyin!

C (çınlama) , 128 126 94 67 bayt

@Ceilingcat sayesinde 67 bayt

f(char*k){for(;*k;k++)printf("%c%c%c\n",*k,*++k?*k:95,*++k?*k:95);}

Çevrimiçi deneyin!

Bash , 90 bayt

Bu, daha geleneksel Bourne kabuğu artı * nix komutlarının bir kombinasyonu yerine Bash özelliklerini kullanır (oluşturduğum bir sürüm 205 baytta sona erdi). Dize iki _ karakter ekleyerek dodge kullanarak hile.

c=;read a;a=${a}__;while (($(echo ${#a})>2));do b=${a:0:3};c=$c\ $b;a=${a#$b};done;echo $c

Çevrimiçi deneyin!

PowerShell , 58 35 bayt

$args-split'(...)'-ne''|% *ht 3 '_'

Mazzy sayesinde -23 bayt .

Çevrimiçi deneyin!

GNU sed , 27 bayt

s:$:__:
s:...:& :g
s: _*$::

Çevrimiçi deneyin!

Sed'in bir falsy değerinin anlamı olmadığı için boş dize girişi ile ilgili biraz zorlaşır. Bu yüzden, bununla başa çıkmak için, sunumumu doğrulamak için size kuralların iki olası yorumunu sunuyorum:

C. Esasen girdi olarak hiçbir şey sağlamazsınız, sondaki satırsonu bile değil (bu 6 Mb dosyası dahil tüm örneklerde olduğu gibi).

Kullanımı:

echo -n ""|sed -f script

Çıktı: hiçbir şey yazdırılmaz, çünkü sed komut dosyasını girdi olmadan çalıştırmaz.

B. sed için benzersiz bir dize olarak falsy değeri olarak düşünülebilir, yani yalnızca girdi boş bir dize olduğunda döndürülebilir.

Kullanımı:

echo ""|sed -f script

Çıktı:

__

İlk yorumu daha çok tercih ediyorum, çünkü amaçlanan kurala en yakın olduğuna inanıyorum, ancak sonuncusu bu TIO bağlantısını kullanarak komut dosyasını çalıştırırsanız yardımcı olur.

JavaScript (Babel Düğümü) , 45 bayt

_=>_.match(/.{1,3}/g).map(a=>a.padEnd(3,`_`))

Çevrimiçi deneyin!

Jöle , 10 bayt

s3;€⁾__ḣ€3

Çevrimiçi deneyin!

8 veya 9 mümkün olmalı, ancak henüz bir tane bulamadı.

Ataşe , 34 23 bayt

PadRight&"_"&3=>@Chop&3

Çevrimiçi deneyin!

Açıklama (eski)

{On[#_-1,PadRight&"_"&3,_]}@Chop&3
                           @Chop&3    chop the input string into groups of 3s
{On[#_-1               ,_]}           on the last group
        ,PadRight                         pad it
                     &3                   to length three
                 &"_"                     with underscores

Kömür , 10 bayt

Ｅ⪪Ｓ³…⁺ι__³

Çevrimiçi deneyin! Bağlantı, kodun ayrıntılı versiyonudur. Açıklama:

  Ｓ         Input string
 ⪪ ³        Split into groups of up to 3 characters
Ｅ           Map over each group
      ι     Current group
     ⁺      Concatenated with
       __   Literal `__`
    …    ³  Moulded to length 3
            Each group implicitly printed on its own line

Scala , 31 bayt

(s+"___").grouped(3).toSeq.init

Çevrimiçi deneyin!

açıklama

(s+"___")       // add "___"
  .grouped(3)   // make groups of 3
  .toSeq        // change to Seq
  .init         // take all but last

Befunge-93 , 30 29 bayt

~:1+%,~:1+!"`"*+,~:1+!"`"*+,,

Çevrimiçi deneyin!

Boş bir girdi için hiçbir şey çıktılamaz, aksi takdirde NUL karakterleriyle ayrılmış 3 uzunluktaki dizeleri çıktılar.

Açıklama:

~ Yığmak için giriş karakterini itin
 : 1+ Yinelenen giriş ve 1 ekleme
    % Modulo üst 2 yığın ve itme sonucu değerleri
                                Giriş -1 (akış sonu) ise, -1% 0 -> dur hesaplayın
                                Aksi takdirde% girişini (giriş + 1) -> girişi hesapla
     , Pop ve çıktı karakteri
      ~ Yığmak için giriş karakterini itin
       : 1+! Yinelenen giriş, 1 ekleyin ve mantıksal DEĞİL gerçekleştirin
           "` "* 96 ile çarp ('' 'için ASCII kodu)
                                NOT sonucuna bağlı olarak 96 veya 0 döndürür.
               + Yığındaki ilk 2 değeri ekleyin ve sonucu itin
                                Giriş -1 (akış sonu) ise, -1 + 96 = 95 veya ASCII kodunu '_' için iter
                                Aksi takdirde girişi + 0 iter
                , Pop ve çıktı karakteri
                 ~: 1 +! "` "* +, Üçüncü karakteri işlemek için aynı blok tekrar
                            , NUL karakteri çıktı (yığın boş, bu nedenle yığıntan haşhaş 0 döndürür)

Talimat işaretçisi sonunda tüm çizgiyi sararak etrafını sarar.