Girdi olarak bir dize verildiğinde, dize uzunluğuna eşit sayıda boşluk karakteri (0x0A ve 0x20) çıkar.

Örneğin, dizginize verilen Hello, World!kodun tam olarak 13 boşluk karakteri ve başka bir şey vermemesi gerekir. Bunlar herhangi bir boşluk ve yeni satır karışımı olabilir.

Kodunuz, ek izleyen yeni satırlar veya boşluklar çıkarmamalı.

testcases:

     Input      -> Amount of whitespace to output
"Hello, World!" -> 13
"Hi"            -> 2
"   Don't
Forget about
Existing
Whitespace!   " -> 45
""              -> 0
"             " -> 13
"
"               -> 1

puanlama:

Bu kod-golf kadar az bayt kazanır!

Boşluk , 311 150 77 68 65 46 41 38 bayt

^{Kevin Cruijssen sayesinde -3 bayt - Ephphatha
sayesinde -27 bayt}

Çevrimiçi deneyin!

Görünür bir format

'\n  \n   \t \t \n \n  \n \t\n\t \t\t\t\n\t  \n\t\n  \n \n\n'

Açıklama (s = boşluk, t = sekme, n = yeni satır)

nssn     # label(NULL) - loop start
ssststsn # push 10 in the stack -> [10]
sns      # duplicate the top of the stack -> [10, 10]
sns      # duplicate the top of the stack -> [10, 10, 10]
tnts     # read a single char from input, pop the stack and store at that address -> [10, 10] [10:<char that was read>]
ttt      # pop the stack and put the value at that adress on stack -> [10,<char>] [10:<char>]
ntssn    # jump to label(0) - since label(0) is not defined, the interpreter jumps to the end of the program - if the top of the stack (char) is 0 -> [10] [10:<char>]
tnss     # pop the top of the stack and print as ascii -> [] [10:<char>]
nsnn     # go back to the label(NULL)

Japt , 1 bayt

ç

Çevrimiçi deneyin!

Haskell , 7 bayt

(>>" ")

Çevrimiçi deneyin! Kullanımı: (>>" ") "Hello, world!".

İki liste göz önüne alındığında (ve dizeler Haskell'deki karakterlerin >>listesidir ), operatör ikinci listeyi ilk listedeki öğelerin sayısı kadar tekrarlar. " "İkinci argüman olarak ayarlamak , giriş dizesi uzun olduğu kadar çok boşluk birleştirdiğimiz anlamına gelir.

Alternatif (aynı bayt sayısı):

(' '<$)

Çevrimiçi deneyin! Kullanımı: (' '<$) "Hello, world!".

Bir değer ve bir liste verildiğinde, <$operatör listedeki her değeri verilen değerle değiştirir. Böylece ve içinde 5 <$ "abc"sonuçlanır .[5,5,5]' ' <$ "abc"" "

İşlev, kodumda (<$)' 'daha fazla deniz canlısı bulmak istemeniz durumunda eşit olarak yazılabilir .

brainfuck , 18 bayt

++++++++++>,[<.>,]

Çevrimiçi deneyin!

Girişin her bir baytı için bir yeni satır yazdırır. Bunun yerine boşluk basmak 4 byte ekler.

Python, 19 bayt

lambda s:' '*len(s)

Retina, 3 4 bayt

S\`.

Eski versiyon çalışmıyor çünkü Retina takip eden satır beslemesi yazdırıyor.

.
 

(İkinci satır bir boşluk içerir).

sed , 7 bayt

s/./ /g

Çevrimiçi deneyin!

Brainfuck, 16 bayt

Yeni satırları yazdırır.

,[>++++++++++.,]

C #, 28 24 bayt

s=>"".PadLeft(s.Length);

Yapıcıyı string28 bayt için kullanan eski sürüm :

s=>new string(' ',s.Length);

Retina , 5 bayt

\`.
¶

Çevrimiçi deneyin! Her şeyi yeni satırlara dönüştürür. \`Ekstra yeni satır Retina olur normalde çıkış bastırır.

Mathematica, 21 bayt

StringReplace[_->" "]

JavaScript ES6, 22 bayt

a=>a.replace(/./g," ")

f=a=>a.replace(/./g," ");

var test = f("Hello, World!");
console.log(test, test.length);

C, 31 bayt

f(char*c){puts(""),*c++&&f(c);}

PHP, 28 Bayt

for(;a&$argn[$i++];)echo" ";

Çevrimiçi deneyin!

PHP, 29 Bayt

<?=str_pad('',strlen($argn));

Çevrimiçi deneyin!

Excel VBA, ₁₇ 15 Bayt

Hücreden girdi alan [A1]ve girişin uzunluğundaki boşlukları VBE acil durum penceresine çıkaran isimsiz VBE acil durum penceresi işlevi

?Spc([Len(A1)])

05AB1E , 3 bayt

vð?

Çevrimiçi deneyin!

v   # For each character...
 ð? #    Output a space without a newline

Diğer 3 byte çözümler ( Bunların çoğu için teşekkürler Magic Octopus Urn ve Kevin Cruijssen )

v¶? # For each character print a newline (without adding a newline)
võ, # For each character print the empty string with a newline
gð× # Get the length, concatenate that many copies of space
g¶× # Get the length, concatenate that many copies of newline
Sð: # Split, push a space, replace each char in input with a space
ðs∍ # Push ' ', swap, make the string of spaces as long as the input was
võJ # For each char, push a space and ''.join(stack)
v¶J # For each char, push a newline and ''.join(stack)
€ðJ # For each char, push a space. Then ''.join(stack)
ۦJ # For each char, push a newline. Then ''.join(stack)

Oktav, 14 bayt

@(a)["" 0*a+32]

CJam , 4 bayt

q,S*

Çevrimiçi deneyin!

açıklama

q     e# Read input
 ,    e# Length
  S*  e# Repeat space that many times

C, 45 bayt

Ana kullanarak. Gcc ile derleyin, uyarıları dikkate almayın.

main(c,v)char**v;{while(*(v[1]++))puts("");}

Kullanımı:

$./a.out "Hello, World!"

JavaScript (ES6), 23 bayt

s=>" ".repeat(s.length)

Excel, 18 bayt

=REPT(" ",LEN(A1))

VBA cevaplarından daha sıkıcı ve bir bayt daha uzun .

> <> , 7 bayt

i0(?;ao

Program bir döngüdür

i         //Push a character from the input onto the stack
 0        //Add a 0 to the stack
  (       //Pop the top two values of the stack, and push a 1 if the second is less than the first (In this case, the input has all been read), else push a 0
   ?      //Pop the top of the stack. If the value is a 0, skip the next instruction
    ;     // Terminate the program
     a    // Add a newline to the stack
      o   // Pop the top character of the stack and print it

V , 2 bayt

Ò 

Çevrimiçi deneyin!

Sondaki boşluğa dikkat edin!

Altıgen , 12 11 bayt

Martin Ender sayesinde -1 bayt

,<.;.M@.>~8

Çevrimiçi deneyin!

İşte genişletilmiş hex:

  , < . 
 ; . M @
. > ~ 8 .
 . . . .
  . . .

Giriş varken bu kod çalışır:

,        # Get input
 <       # Turn right (SE) if we didn't get EOF
  M8     # Set the memory edge to 778 which is 10 (mod 256)
    ;    # Print as a character (newline)
     >   # Redirect East
      ~  # Multiply by -1. This makes the pointer go to the top when it runs off the edge
       8 # Effectively a no-op.

EOF'ye ulaşıldığında:

,    # Get input
 <   # Turn left (NE)
  8  # Effectively a no-op
   @ # End program

Perl 5 , 7 bayt

@Xcali sayesinde -1 bayt

6 bayt kodu + -pbayrak.

y// /c

Çevrimiçi deneyin!

Oldukça düz: her karakteri bir boşlukla değiştirir.

Python 2,25 bayt

exec'print;'*len(input())

Loovjo sayesinde -2 bayt = Totalhuman sayesinde
geçersiz koddaki -2 bayt: p
-3 bayt

PHP, 36 bayt

<?=str_repeat('
',strlen($argv[1]));

Çevrimiçi deneyin!

Boşluklar çok yaygın olduğundan yeni satırlar çıkarır

Cubix , 6 bayt

Wahoo 6 bayt!

wi?@oS

Cubified

  w
i ? @ o
  S

• i girdi alır
• ? yığınının üst kısmı
  • eğer negatif (EOI) durma wyerine geçen şerit değişikliğine yönlendirir@
  • 0 (boş) durursa, bu isabet olmamalıdır
  • eğer Sowyığına pozitif itme alanı varsa , çıkışın ve şeridi değiştirini

Çevrimiçi deneyin!

C, 32 bayt

Çevrimiçi karakterleri boşluklara değiştirmeyi deneyin

f(char*t){(*t=*t?32:0)&&f(t+1);}

C, 37 bayt

Çevrimiçi olarak , dizenin sonuna uzunluğuyla sol tıklamayı deneyin

f(char*t){printf("%*c",strlen(t),0);}

APL (Dyalog) 13.2, 1 bayt

Sadece boşlukları yazdırır.

∊ prototip (sayılar sıfır, karakterler boşluk olur)

Çevrimiçi deneyin!