Boşluk girintisi kullanıcıları, birleştirin ! Tüm düşük sekmeli kullanıcılara karşı savaşmalıyız !

Göreviniz (kabul etmeyi seçmelisiniz), iki argüman alan bir program veya işlev yazmaktır:

• Bir dize: Bu giriş.
• Olumlu bir tamsayı: Sekme başına düşen boşluk sayısı.

Dizginin her satırından geçmeli ve girintiler için kullanılan her sekmeyi verilen boşluklarla değiştirmelisiniz ve girintiler için kullanılmayan her sekmeyi (örneğin, bir çizginin ortasında) bir boşlukla değiştirmelisiniz.

Bu gibi satırların \t \tabctanımsız davranış olduğuna dikkat edin ; Kötü sekme kullanıcıları tarafından programlarınızı zorlaştırmak için eklenmişlerdir.

Sekmeler Must Die Society'ne göre, kötü sekme kullanıcıları tarafından tespit edilmekten kaçınmak için programınız mümkün olduğu kadar kısa olmalıdır.

Örnek

\t Burada sekmeleri temsil etmek için kullanılır.

Giriş dizesi:

a
\t\tb\tc
d

Numara giriniz:

4

Çıktı:

a
        b c
d

Ortadaki çizgi 8 boşlukla, sekme başına 4 (girilen sayı 4 olduğundan) girintili idi.

Giriş dizesi:

\ta\t\tb

Numara giriniz:

4

Çıktı:

    a  b

NOT: Bu, sekme genişletme sorununun bir kopyası değildir ; çok farklı bir giriş formatı ve biraz farklı gereksinimler gerektirir.

CJam, 30 24 23 bayt

q{_9=NA=Seasi*' ?@?:N}/

Genellikle internete kötü amaçlı kod göndermeyi reddediyorum…

Bu, dizeyi STDIN'den ve sayıyı komut satırı argümanı olarak okuyan tam bir programdır.

CJam tercümanında çevrimiçi olarak deneyin .

Nasıl çalışır

q                        Read all input from STDIN.
 {                   }/  For each character C in the input:
  _9=                      Push 1 if C is a tab and 0 otherwise.
     NA=                   See below.
        Seasi*             Push a string of W spaces, where W is the integer from
                           the command-line arguments.
              '            Push a spaces character.
                ?          Select the string if NA= pushed a truthy value, the
                           single space otherwise.
                 @         Rotate C on top of the stack.
                  ?        Select the string of spaces or the single space if _9=
                           pushed 1, the character C otherwise.
                   :N      Save the result in N.

Ne NA=yapar:

• İlk karakter için, Nvarsayılan değerini, yani dizeyi içerecektir "\n".

  Sonraki tüm karakterler için, Nson yinelemenin sonucunu, yani girişten gelen son karakteri, boşluk karakterini veya bir veya daha fazla boşluktan oluşan bir dizeyi içerecektir.

• Eğer Nbir dizidirNA= (etrafında sarma) N endeksi 10'da elemanı seçer. Sonuç, boşluk ya da satır besleme karakteri olacaktır. Her ikisi de truthy.

  N bir karakter ise, NA=satır beslemesi için 1, aksi takdirde 0 tuşuna basar.

• Yukarıdakilerden dolayı, NA=bir satır beslemeden önce gelen bir karakter ya da bir boşluk dizisinden önce gelen bir karakter (zaten değiştirilmiş olan girintiler) için ilk karakter için bir rutubet değeri itecektir.

  Diğer tüm durumlarda (boşluk karakteri ile değiştirilen NA=bir tabülatör dahil ), sahte bir değere neden olur.

K5, 53 45 bayt

{{,/(b+a&~b:x*&\a:9=y){$[x;x#" ";y]}'y}[x]'y}

Eylemde:

  {{,/(b+a&~b:x*&\a:9=y){$[x;x#" ";y]}'y}[x]'y}[4;(,"a";"\t\tb\tc";,"d")]
(,"a"
 "        b c"
 ,"d")

Sadece kaydın bu sorunun ahlaki olarak anlaşılabilir olduğunu göstermesini istiyorum.

Perl, 23 bayt

22 bayt kodu + 1 bayt komut satırı

Umarım sayısal girişin -i parametresiyle verilebileceğini varsaymak için çok arsız değildir! Aşağıdaki kodda \ t'nin gerçek sekme karakteriyle değiştirildiğinden emin olun.

s/\G\t/$"x$^I/ge;y/\t/ /

Kullanım örneği:

printf "a\n\t\tb\tc\nd" | perl -p entry.pl -i4

Veya kolaylık sağlamak için:

printf "a\n\t\tb\tc\nd" | perl -pe 's/\G\t/$"x$^I/ge;y/\t/ /' -i4

Açıklama:

-pArgümanı kullanmak, girdideki her satır için programı çalıştırır, ardından sonucu yazdırır.

Yukarıdaki örnekte, normal ifade ikame yerine geçer \G\tile " "x4(bir boşluk, dört kez tekrarlanır). \Gilk yineleme durumunda ilk eşleşmenin konumunu veya ilk yineleme değilse önceki eşleşmenin konumuyla eşleşen az bilinen bir regex yapısıdır, yani yalnızca dizenin başlangıcındaki tüm sekmeleri değiştirecek tek tek bunu yapın. y/\t/ /Sadece boşluk ile geri kalan sekme değiştirir.

Julia, 69 59 bayt

f(s,n)=(r=replace)(r(s,r"^\t*"m,i->" "^endof(i)n),"\t"," ")

Ungolfed:

function f(s::String, n::Int)
    # Replace the leading indentation tabs
    r1 = replace(s, r"^\t*"m, i -> " "^endof(i)n)

    # Replace any remaining tabs between words
    r2 = replace(r1, r"\t", " ")

    # Return
    r2
end

10 bayt kurtarıldı ve Glen O!

Haskell, 82 bayt

n!('\t':x)=([1..n]>>" ")++n!x
n!x=f<$>x
f '\t'=' '
f x=x
g n=unlines.map(n!).lines

O zaman g 3 "a\n\t\tb\tc\nd"şey yapar.

Mathematica, 42 37 bayt

Birden fazla kod tasarrufu önerisi için @ LegionMammal978'e teşekkürler. İlk parametre, #giriş metni, ikinci parametre, #2sekme başına boşluk sayısı içindir.

StringReplace[#,"\t"->" "~Table~{#2}]&

Yakut 49 bayt

def r s,t;s.gsub! /^\t/,' '*t;s.gsub!"\t",' ';end

JavaScript (ES6), 70

Şablon dizgileri kullanılarak, yeni satır önemli ve sayılır.

(s,n,r=n)=>[...s].map(c=>c<`
`?` `.repeat(r):(r=c<` `?n:1,c)).join``

Aşağıdaki pasajı Firefox'ta çalıştırmayı test edin.

F=(s,n,r=n)=>[...s].map(c=>c<`
`?` `.repeat(r):(r=c<` `?n:1,c)).join``

// TEST
out=x=>O.innerHTML+=x+'\n\n'

out('Input: "A\\n\\t\\tB\\tC\\nD" 4\nOutput:\n'+F('A\n\t\tB\tC\nD',4))

out('Input: "\\tA\\t\\tB" 4\nOutput:\n'+F('\tA\t\tB', 4))

<pre id=O></pre>

CoffeeScript, 72 bayt

(s,n)->s.replace(/^\t+/mg,(m)->" ".repeat(m.length*n)).replace /\t/g," "

(En az 2 ısırık golf oynamayı denemek, ES6 çözümünü yenecek ... Takdir edilmesine yardımcı olur: D)

Kullanımı:

f=(s,n)->s.replace(/^\t+/mg,(m)->" ".repeat(m.length*n)).replace /\t/g," "
str="""
My nice\tString
\tIndent <--
\t\tDouble
""" #\t is recognized as tab by CS
alert(f(str,4))

Retina, 42 bayt

Tüm oluşumları .boşluk, tümü \tdeğişmez sekmelerdir (1 bayt) ve<empty> boşluktur boş bir dosyayı temsil eder. Sadece okunabilirlik için. Ayrıca tam olarak döngüyü doğru yaptığımdan da emin değilim, ama öyle düşünüyorum. Her satır kendi dosyasına yerleştirilmelidir. Her ek dosya için 1 bayt ekledim.

Giriş, giriş sonunda kendi satırında Unary olarak kabul edilir.

(1*)$
_$1
m+`(?<!^|\t)\t
.
(`1$
<empty>
)`\t
\t.
\t|_
<empty>

açıklama

_Değiştirme sırasında sınırlandırmak için Unary girişinden önce bir ek eklerim , böylece sonda olanları giriş dizesinden çıkarmam. Daha sonra, satır başında olmayan tüm sekmeleri tek boşlukla değiştiririm. Ardından, 1giriş bitene kadar her sekmeden sonra bir tane kaldırarak ve tek bir boşluk ekleyerek döngü yapıyorum. Sonunda, sekmeleri ve alt çizgileri kaldırarak temizliyorum.

Python, 72 68 bayt

Sekmeler değişmez sekmelerdir (1 bayt), bu yüzden r'...'gerekli değildir. Ne yazık ki, Python "sabit genişlikte" görünümlere / görünümlere ihtiyaç duyuyor, bu yüzden kullanamıyorum (?<!^|\t). Retina çözümümle hemen hemen aynı yöntemi kullanıyor.

import re
lambda s,n:re.sub('\t',' '*n,re.sub('(?<!^)(?<!\t)\t',' ',s))

Stax , 20 bayt

ÜR╧█╧╫≡eX,)~σOÜ¢G╩N‼

Koş ve hata ayıkla

Bu program ilk satırı girintili genişlik ve girişin kalanını program olarak okur.

Japt v2.0a0, 17 bayt

r/^\t+/m_çVçÃr\tS

Dene

Haskell , 75 bayt

s#m|let('\t':r)#n=(' '<$[1..n])++r#n;(x:r)#n=x:r#(m^sum[1|x<' ']);e#_=e=s#m

Çevrimiçi deneyin!Bu, girişin yorumlarda OP'nin izin verdiği şekilde yalnızca yazdırılabilir karakterlerin yanı sıra sekmeler ve yeni satırlar içerdiğini varsayar.

Açıklama:

Dış #işlev bir dize sve sayı alır mve yerel olarak tanımlanmış iç #işlevi aynı argümanlarla çağırır . Bu, miç #işlev sayıyı değiştirdiği için orijinal değeri takip etmek için yapılır :

• ('\t':r)#n=(' '<$[1..n])++r#nBir sekmeyle karşılaşırsanız, nboşluklarla değiştirin ve ndeğişmeden bırakın .
• (x:r)#n=x:r#(m^sum[1|x<' '])Eğer xbir sekme ile karşılaşılmazsa, olduğu gibi tutunuz, ancak yeni bir satır ise norijinal numaraya ayarlayınız , başka bir deyişle. Bu yapılır : gücüne alınır hangi değerlendirir için zaman bir boşluk daha küçüktür (yani satır), aldığımız bu yüzden . Aksi takdirde ve biz var .mx1m^sum[1|x<' ']msum[1|x<' ']1xm^1 = m0m^0 = 1

Java 11, 134 bayt

n->s->{var r="";for(var p:s.split("\n")){for(;p.charAt(0)==9;p=p.substring(1))r+=" ".repeat(n);r+=p+"\n";}return r.replace('\t',' ');}

Çevrimiçi deneyin.
NOT: Java 11 henüz TIO'da değil " ".repeat(n);repeat(" ",n) yerine (aynı bayt sayısı ile).

Açıklama:

n->s->{                 // Method with integer & String parameters and String return-type
  var r="";             //  Result-String, starting empty
  for(var p:s.split("\n")){
                        //  Loop over the rows (split by new-lines)
    for(;p.charAt(0)==9;//   Inner loop as long as the current row starts with a tab
       p=p.substring(1))//     After every iteration: remove the first character (tab)
      r+=" ".repeat(n); //    Append `n` amount of spaces to the result-String
    r+=p+"\n";}         //   Append the rest of the row with a newline to the result
  return r.replace('\t',' ');} 
                        //   Replace any remaining tabs with a space, and return the result