Bu zorluğun amacı, bu büyük albümün kapağının ASCII versiyonunu rock grubu Pink Floyd tarafından üretmektir .

Tuğla kavşakları karakterlerden _ve |. Tuğlalar eklem hariç genişlik 7 ve yükseklik 2 karaktere sahiptir. Böylece, bağlantılar dahil, temel birim şudur:

_________
|       |
|       |
_________

Her tuğla sırası, önceki satıra göre yarım tuğla genişliğinde (4 karakter) dengelenir :

________________________________________
  |       |       |       |       |     
  |       |       |       |       |     
________________________________________
      |       |       |       |       | 
      |       |       |       |       | 
________________________________________
  |       |       |       |       |     
  |       |       |       |       |     

Duvar aşağıdaki gibi parametrelenmiştir . Tüm parametreler kavşaklar dahil olmak üzere karakterlerle ölçülür:

1. İlk satırın yatay kaymasıF ,. Bu, sol kenar boşluğu ile en üst sıranın ilk dikey kavşağı arasındaki mesafedir. (Ayrıca, satırlar arasındaki yarım tuğla göreceli kaymanın da unutmayın) Olası değerleri şunlardır 0, 1, ..., 7.
2. Toplam genişliği , W. Bu, kavşaklar içerir. Değeri pozitif bir tamsayıdır.
3. Toplam yükseklik , H. Bu, kavşaklar içerir. Değeri pozitif bir tamsayıdır.

Duvarın tepesi daima üst üste gelir. Alt düzensiz olabilir (toplam yükseklik bir katı değilse 3). Örneğin, aşağıda için çıkış var 6, 44, 11:

____________________________________________
      |       |       |       |       |     
      |       |       |       |       |     
____________________________________________
  |       |       |       |       |       |     
  |       |       |       |       |       |     
____________________________________________
      |       |       |       |       |     
      |       |       |       |       |     
____________________________________________
  |       |       |       |       |       |     

ve parametrelerin görsel bir açıklaması:

          F=6
         ......   
     .   ____________________________________________
     .         |       |       |       |       |    
     .         |       |       |       |       |     
     .   ____________________________________________
     .     |       |       |       |       |       | 
H=11 .     |       |       |       |       |       |      
     .   ____________________________________________
     .         |       |       |       |       |     
     .         |       |       |       |       |     
     .   ____________________________________________
     .     |       |       |       |       |       |      

         ............................................
                             W=44

Ek kurallar

Bir program veya işlev sunabilirsiniz.

Giriş formatı her zamanki gibi esnektir. Çıktı, STDOUT veya bir işlev tarafından döndürülen bir argüman olabilir. Bu durumda, yeni satırlı bir dize veya bir dizi dizgi olabilir.

Sondaki boşluklara veya yeni satırlara izin verilir.

Bayt cinsinden en kısa kod kazanır.

Test durumları

Girişler yukarıda verilen sıradadır, yani: ilk satırın yatay kayması, toplam genişlik, toplam yükseklik.

6, 44, 11:
____________________________________________
      |       |       |       |       |     
      |       |       |       |       |     
____________________________________________
  |       |       |       |       |       | 
  |       |       |       |       |       | 
____________________________________________
      |       |       |       |       |     
      |       |       |       |       |     
____________________________________________
  |       |       |       |       |       |     


2, 20, 10:
____________________
  |       |       | 
  |       |       | 
____________________
      |       |     
      |       |     
____________________
  |       |       | 
  |       |       | 
____________________


1, 1, 1:
_


1, 2, 3:
__
 |
 |


3, 80, 21:
________________________________________________________________________________
   |       |       |       |       |       |       |       |       |       |    
   |       |       |       |       |       |       |       |       |       |    
________________________________________________________________________________
       |       |       |       |       |       |       |       |       |       |
       |       |       |       |       |       |       |       |       |       |
________________________________________________________________________________
   |       |       |       |       |       |       |       |       |       |    
   |       |       |       |       |       |       |       |       |       |    
________________________________________________________________________________
       |       |       |       |       |       |       |       |       |       |
       |       |       |       |       |       |       |       |       |       |
________________________________________________________________________________
   |       |       |       |       |       |       |       |       |       |    
   |       |       |       |       |       |       |       |       |       |    
________________________________________________________________________________
       |       |       |       |       |       |       |       |       |       |
       |       |       |       |       |       |       |       |       |       |
________________________________________________________________________________
   |       |       |       |       |       |       |       |       |       |    
   |       |       |       |       |       |       |       |       |       |    

Pyth, 43 27 bayt

Ben ihtiyacım golf o ağır ... puanı çok utanç verici.

AQVE<*H?%N3X*8d+G*4/N3\|\_H

Zaten çevrimiçi deneyin.

Giriş formatı

6,44
11

Çıkış formatı

____________________________________________
      |       |       |       |       |     
      |       |       |       |       |     
____________________________________________
  |       |       |       |       |       | 
  |       |       |       |       |       | 
____________________________________________
      |       |       |       |       |     
      |       |       |       |       |     
____________________________________________
  |       |       |       |       |       | 

açıklama

AQVE<*H?%N3X*8d+G*4/N3\|\_H   First two inputs as list in Q,
                              third input as E.

AQ                            Assign G to the first item in Q
                              and H to the second item in Q.
  VE                          For N from 0 to E-1:
                   /N3            N floor-div 3.
                                    if N gives a remainder of 3 or 4 or 5
                                    when divided by 6, this will be odd;
                                    otherwise, this will be even.
                 *4               Multiply by 4.
                                    if the above is odd, this will leave
                                    a remainder of 4 when divided by 8;
                                    otherwise, the remainder would be 0.
               +G                 Add G (as an offset).
           X*8d       \|          In the string "        " (*8d),
                                  replace (X) the character with the
                                  index above with "|" (modular indexing,
                                  hence the manipulation above).
       ?%N3             \_        If N%3 is non-zero, use the above;
                                  otherwise, use "_".
     *H                           The above repeated H times.
    <                     H       Take the first H characters of above.
                                  Implicitly print with newline.

C, 86 85 83 82 bayt

Lynn sayesinde 3 bayt kaydedildi.
Charlie sayesinde 1 byte kaydedildi.

i;f(o,w,h){++w;for(i=0;++i<w*h;)putchar(i%w?i/w%3?i%w+i/w/3*4+~o&7?32:124:95:10);}

C, 92 bayt

b(f,w,h,y,x){for(y=0;y<h;y++,puts(""))for(x=0;x<w;x++)putchar(y%3?(x+y/3*4-f)%8?32:124:95);}

Olarak çağır b(F, W, H).

Perl, 63 bayt

#!perl -nl
$y+=print+map$y%3?$_++-$`&7?$":'|':_,($y%6&4)x$&for/ \d+/..$'

Shebang'ı 2 olarak sayarak girdi boşluktan ayrılarak stdin'den alınır.

Örnek Kullanım

$ echo 2 20 10 | perl bricks.pl
____________________
  |       |       |
  |       |       |
____________________
      |       |
      |       |
____________________
  |       |       |
  |       |       |
____________________

Haskell, 83 bayt

q s="_":[s,s]
(f!w)h=take h$cycle$take w.drop(7-f).cycle<$>q"       |"++q"   |    "

Bu, !dizelerin listesini döndüren üçlü bir ek işlevini tanımlar . Kullanım örneği:

*Main> putStrLn $ unlines $ (3!14) 7
______________
   |       |  
   |       |  
______________
       |      
       |      
______________

Nasıl çalışır:

            q"       |"++q"   |    "  -- build a list of 6 strings
                                      --   1:     "_"
                                      --   2:     "       |"
                                      --   3:     "       |"
                                      --   4:     "_"
                                      --   5:     "   |    "
                                      --   6:     "   |    "
         <$>                          -- for each of the strings
     take w.drop(7-f).cycle           -- repeat infinitely, drop the first 7-f chars
                                      --    and take the next w chars
  cycle                               -- infinitely repeat the resulting list
take h                                -- and take the first h elements

JavaScript (ES6), 96 95 bayt

g=
(f,w,h)=>[...Array(h)].map((_,i)=>(i%3?`       |`:`_`).repeat(w+7).substr(f^7^i%6&4,w)).join`
`
;

<div onchange=o.textContent=g(f.value,w.value,+h.value)><input id=f type=number min=0 max=7 placeholder=Offset><input id=w type=number min=0 placeholder=Width><input id=h type=number min=0 placeholder=Height></div><pre id=o>

Açıklama: Yinelenen 7 boşluk artı |desen veya sadece tekrarlanan _s dizeleri oluşturur , ancak en azından wher satır için gereken karakterleri çıkarabilecek kadar uzun . İlk üç sıra pozisyonda başlar, f^7ardından sonraki üç sıra pozisyonda başlar f^3, bu yüzden , her bir 6 bloğun son iki satırındaki zıt bit 2'yi 1 tasarruf için kullanarak her üçüncü satırdaki 2. biti değiştirerekf elde ederim . bayt.

MATL, 42 36 33 bayt

:-Q'_ | |'[DClCl]Y"8et4YShwi:3$)!

Girdi biçimi şöyledir: nCols, offset,nRows

Çevrimiçi Deneyin

Buradaki yaklaşım [1 2 ... nRows], ilk girdi ( [1 2 ... nCols] - shift) tarafından kaydırılan satır dizinlerini ( ) ve sütun dizinlerini kullanarak daha sonra dizine eklediğimiz bir "şablon" oluşturmamızdır . MATL'nin modüler indekslemesi sayesinde, otomatik olarak fayans çıkışı ile sonuçlanacaktır. Bir yan not olarak, biraz yer kazanmak için, teknik olarak şablonun çevrilmiş bir versiyonuyla !çalışıyorum ve sonunda sadece bir transpose ( ) aldım .

Şablon şudur:

________
       |
       |
________
  |     
  |     

Python 2, 93 88 bayt

2. girinti seviyesi sekmedir Leaky Nun ve bazı modifikasyonlar sayesinde bazı byte'ları kaydetme, şimdi de doğru ofset:

def f(F,W,H):
 for h in range(H):print["_"*W,((("|"+7*" ")*W)[8-F+h%6/3*4:])[:W]][h%3>0]

önceki kod:

def f(F,W,H,x="|"+7*" "):
 for h in range(H):
    print ["_"*W,(x[F+4*(h%6>3):]+x*W)[:W]][h%3>0]

Adsız lambda ile aynı uzunluk:

lambda F,W,H,x="|"+7*" ":"\n".join(["_"*W,(x[F+4*(h%6>3):]+x*W)[:W]][h%3>0]for h in range(H))

QBasic, 121 109 bayt

(QB64'te test edilmiştir)

IFAçıklamalarımı matematiksel bir eşdeğerde golf oynamak için @DLosc'a teşekkürler . 12 bayt değerdi.

Genel Yöntem:

Aynı anda her bir hücre, bir döngü ve bir olup olmadığını belirlemek _, ya da |yerine bağlı olarak da. MODifadeler ve boolean mantığı, tuğla sınırlarını ve tuğlaların ne kadarını kademelendireceğini belirlemek için kullanılır.

Kod:

INPUT F,W,H
FOR y=0TO H-1:FOR x=0TO W-1
?CHR$((y MOD 3>0)*(((x-(y MOD 6>3)*4)MOD 8=F)*92+63)+95);
NEXT:?:NEXT

Kullanım Not:

QBasic, girişin virgülle ayrılmış sayılar olmasını bekler.

Java, 149 , 147 , 146 , 143 bayt

golfed:

String f(int o,int w,int h){String s="";for(int y=0,x;y<h;++y){for(x=0;x<w;++x){s+=y%3>0?(x-o+(y-1)/3%2*4)%8==0?'|':' ':'_';}s+='\n';}return s;}

Ungolfed:

public class AllInAllItsJustUhAnotherTrickInCodeGolf {

  public static void main(String[] args) {
    int offset = 6;
    int width = 44;
    int height = 11;
    System.out.println(new AllInAllItsJustUhAnotherTrickInCodeGolf()
        .f(offset, width, height));
  }

  // Begin golf
  String f(int o, int w, int h) {
    String s = "";
    for (int y = 0, x; y < h; ++y) {
      for (x = 0; x < w; ++x) {
        s += y % 3 > 0 ? (x - o + (y - 1) / 3 % 2 * 4) % 8 == 0 ? '|' : ' ' : '_';
      }
      s += '\n';
    }
    return s;
  }
  // End golf

}

Yakut, 72 66 bayt

->f,w,h{h.times{|i|puts i%3<1??_*w:((?|+' '*7)*w)[8-f+i%6/4*4,w]}}

6 bayt için @Value Ink @ teşekkürler!

Basit dize çarpımı ve dilimleme.

Ruby 2.3.0'da çalışır (Ideone'un 2.1 sürümü, sözdizimi hatası attı).

Julia: 150 128 116 108 107 bayt

# in codegolf.jl
r=repmat;b=r([' '],6,8);b[[1,4],:]='_';b[[2,3,23,24]]='|';b=r(b,h,w)[1:h,o+=1:o+w];b[:,end]=10;print(b'...)

bağımsız değişkenlerle çalıştırmak için: julia -e 'o=2;h=18;w=40;include("codegolf.jl")'

Eğer bash'tan arama yapmak hile yapıyorsa ve tercüman içinde bir işlev görmek istiyorsanız, o zaman işlev sürümü 117 byte olur :)

f(o,h,w)=(r=repmat;b=r([' '],6,8);b[[1,4],:]='_';b[[2,3,23,24]]='|';b=r(b,h,w)[1:h,o+=1:o+w];b[:,end]=10;print(b'...))

gösteri

(Teşekkürler, fazladan bayt tasarrufu sağlayan uç için @ glen-o!)

JavaScript, 172 168 165 157 147 142 137 bayt

(O,W,H)=>{t='_'.repeat(W),x='|       '.repeat(W),f=t+`
`;for(i=0;++i<H;)f+=(!(i%3)?t:(i%6)>3?x.substr(O,W):x.substr(8-O,W))+`
`;return f}

N = (O,W,H)=>{t='_'.repeat(W),x='|       '.repeat(W),f=t+`
`;for(i=0;++i<H;)f+=(!(i%3)?t:(i%6)>3?x.substr(O,W):x.substr(8-O,W))+`
`;return f}

let test_data = [[6,44,11],
                 [2,20,10],
                 [1,1,1],
                 [1,2,3],
                 [3,80,21]];

for (test of test_data)
    console.log(N(...test));

Dyalog APL, 29 bayt

↑⎕⍴⎕⍴¨a,4⌽¨a←'_',2⍴⊂⌽⎕⌽¯8↑'|'

Testler: 6 44 11, 2 20 10, 1 1 1, 1 2 3, 3 80 21

⎕girdi değerlendirilir; ifade sağdan sola doğru çalıştırır gibi, bu ister F, Wve Hbu sırayla

¯8↑'|' dır-dir ' |'

⎕⌽ döndürülür, önden F karakterleri keser ve dizenin sonuna konur

diğer ⌽araçlar ters

'_',2⍴⊂ şimdiye kadar dizenin iki ayrı kopyasını izleyen 3'lü bir '_' dizisi oluşturur.

a,4⌽¨a← Şimdiye kadar herşeyin 4'lü rotasyonunu ekle, 6'lı bir demetle sonuçlanır.

⎕⍴¨ her elemanı genişliğe yeniden şekillendir

⎕⍴ yeniden şekillendirmek

↑ vektörlerin bir matrikse karıştırılması

Aslında , 44 43 40 bayt

Bu, Neil'in JS cevabındaki algoritmanın Aslında bir limanıdır . Golf önerileri kabul edilir. Çevrimiçi deneyin!

╗╝r⌠;6(%4&╜7^^╛'|7" "*+*t╛@H╛'_*3(%YI⌡Mi

Ungolfing:

          Takes implicit input in the order h, w, f.
╗╝        Save f to register 0. Save w to register 1.
r⌠...⌡M   Map over range [0..h-1]. Call this variable i.
  ;         Duplicate i
  6(%       i%6...
  4&        ...&4
  ╜7^^      ...^i^7. Call it c.
  ╛         Push w.
  '|7" "*+  The string "       |"
  *t╛@H     (("       |" * w)[c:])[:w]
  ╛'_*      Push "_" * w
  3(%       Push 3, move duplicate i to TOS, mod.
  YI        If not i%3, take "_"*w, else (("       |" * w)[c:])[:w]
            Function ends here.
i         Flatten the resulting list and print the bricks implicitly.

PowerShell , 101 88 bayt

param($n,$w,$h)0..--$h|%{(('|       '*$w|% S*g(8-$n+4*($_%6-gt3))$w),('_'*$w))[!($_%3)]}

Çevrimiçi deneyin!

Octave 80 76 bayt

% in file codegolf.m
c(6,8)=0;c([1,4],:)=63;c([2,3,23,24])=92;char(repmat(c+32,h,w)(1:h,o+1:o+w))

terminalden çalıştırmak için: octave --eval "o=2;h=18;w=44; codegolf"

(alternatif olarak, terminal çağrısının hile yaptığını düşünüyorsanız: p sonra anonim bir işlev uygulaması 86 bayt alır :)

c(6,8)=0;c([1,4],:)=63;c([2,3,23,24])=92;f=@(o,h,w)char(repmat(c+32,h,w)(1:h,o+1:o+w))

f(2,18,44)Oktav tercümanını arayın .

Bash + Sed, 411 395 381 370 bayt:

F=`printf '_%.s' $(eval echo {1..$2})`;V="       |";(($[($2-$1)/8]>0))&&L=`printf "$V%.s" $(eval echo {1..$[($2-$1)/8]})`||L=;Z=`printf "%$1.s|%s\n" e "$L"`;I=$[($2-(${#Z}-4))/8];(($I>0))&&W=`printf "$V%.s" $(eval echo {1..$I})`||W=;J=${Z:4}$W;for i in `eval echo {1..$[$3/3+1]}`;{ (($[$i%2]<1))&&O+="$F\n$J\n$J\n"||O+="$F\n$Z\n$Z\n";};echo "`echo -e "$O"|sed -n 1,$3p`"

Evet, işte Bash'deki ilk cevabım veya bu konuda herhangi bir kabuk betik dili. Bu aynı zamanda buradaki en uzun cevap. Biçimdeki boşlukla ayrılmış komut satırı argümanlarının bir sırasını alır Offset Width Height. Bu muhtemelen şu anda olduğundan çok daha kısa olabilir, bu nedenle bu golf oynamak için herhangi bir ipucu ve püf noktaları takdir edilmektedir.

Delphi / Nesne Pascal, 305 , 302 , 292 bayt

3 parametre okuyan tam konsol programı.

uses SySutils,Math;var i,q,o,w,h:byte;begin o:=StrToInt(paramstr(1));w:=StrToInt(paramstr(2));h:=StrToInt(paramstr(3));for q:=0to h-1do begin for i:=1to w do if q mod 3=0then Write('_')else if IfThen(Odd(q div 3),((i+o)mod 8),((i-o)mod 8))=1then Write('|')else Write(' ');Writeln('');end end.

ungolfed

uses
  SySutils,
  Math;
var
  i,q,o,w,h:byte;
begin
  o:=StrToInt(paramstr(1));
  w:=StrToInt(paramstr(2));
  h:=StrToInt(paramstr(3));

  for q := 0 to h-1 do
  begin
    for i := 1 to w do
      if q mod 3 = 0  then
        Write('_')
      else
        if IfThen(Odd(q div 3),((i+o)mod 8),((i-o)mod 8)) = 1 then
          Write('|')
        else Write(' ');
    Writeln('');
  end
end.

Ne yazık ki, Delphi'nin üçlü bir operatörü yoktur ve oldukça ayrıntılı bir dildir.

test durumu

D:\Test\CodeGolfWall\Win32\Debug>Project1.exe 2 20 10
____________________
  |       |       |
  |       |       |
____________________
      |       |
      |       |
____________________
  |       |       |
  |       |       |
____________________

D:\Test\CodeGolfWall\Win32\Debug>Project1.exe 6 44 11
____________________________________________
      |       |       |       |       |
      |       |       |       |       |
____________________________________________
  |       |       |       |       |       |
  |       |       |       |       |       |
____________________________________________
      |       |       |       |       |
      |       |       |       |       |
____________________________________________
  |       |       |       |       |       |

Düzenleme: Tüm değişkenler için tür olarak bayt kullanarak 3 baytlık tıraş olabilir.

Düzenleme 2: Konsol uygulamalarında program bildirimi gerekmez , -10