โปรดทราบว่านี้ไม่ได้เช่นเดียวกับการพิมพ์ตัวอักษรสี่ครั้ง

ภารกิจนี้คือการเขียนโปรแกรมเพื่อสร้างสำเนาของตัวอักษรภาษาอังกฤษสี่ตัวอักษรหนึ่งตัวต่อบรรทัดในเอาต์พุตมาตรฐาน:

A
A
A
A
B
B
B
B

เป็นต้น

ผลลัพธ์ควรมีบรรทัดใหม่หลังจากตัวอักษรแต่ละตัว

ตัวอักษรตัวพิมพ์ใหญ่ที่ไม่ต้องการเอาต์พุตพิเศษ อย่างไรก็ตามตัวอักษรตัวพิมพ์เล็กและ / หรือช่องว่างเพิ่มเติมเป็นที่ยอมรับได้หากการใช้อักษรตัวใหญ่ / การปอกจะทำให้โซลูชันของคุณยาวขึ้น

แก้ไขเพื่อเพิ่ม:การแก้ปัญหาจะต้องเสร็จสมบูรณ์เพียงพอที่จะดำเนินการ ฉันควรจะสามารถใช้ภาษาวางรหัสจากคำตอบและรับผลลัพธ์โดยไม่ต้องพิมพ์รหัสเพิ่มเติมใด ๆ

คำถามข้างต้นเกี่ยวกับความครบถ้วนสมบูรณ์เกิดขึ้นในบริบทของโซลูชัน C แน่นอนว่าจะต้องมีกฎหรือระเบียบเกี่ยวกับเรื่องนี้ในเว็บไซต์เล่นกอล์ฟ? ถ้าเป็นเช่นนั้นฉันยินดีที่จะปฏิบัติตามแนวทางชุมชน แต่นี่คือของฉัน:

1. สำหรับ C โดยเฉพาะคุณจะต้องรวม (และนับ) main(){... }รอบรหัสเนื่องจากจะไม่รวบรวมเป็นอย่างอื่น คำเตือนเพราะไม่มีอะไร#include <stdio.h>ดีตราบใดที่รหัสยังคงรวบรวม โดยทั่วไปแล้วภาษาที่คอมไพล์ต้องใช้หน่วยที่คอมไพล์ได้

2. นิพจน์เปลือยที่ให้ผลลัพธ์ที่ต้องการนั้นเป็นที่ยอมรับหากมีวิธีดำเนินการกับนิพจน์โดยตรง เช่นถ้าภาษามี REPL ดังนั้นคุณสามารถส่ง Haskell โดยไม่ต้องmain=ตราบเท่าที่มันใช้งานได้จริงตามที่เขียนไว้ในเช่นghciพรอมต์ แต่เนื่องจากนั่นหมายถึงการletประกาศของคุณมันอาจจะเป็นชัยชนะสุทธิที่ติดกับrunhaskellรูปแบบ

3. ในทำนองเดียวกันawkสคริปต์ควรอยู่ในBEGIN(หรือENDด้วยการสันนิษฐานว่า stdin เชื่อมต่อกับ/dev/null) บล็อกเนื่องจากเราไม่ได้ประมวลผลอินพุตใด ๆ

เป็นต้น

APL (5)

⍪4/⎕A

รูปแบบเมทริกซ์ ( ⍪) ของ 4 การจำลอง ( 4/) ของตัวอักษร ( ⎕A)

Python - 37

for i in range(104):print chr(i/4+65)

iไปจาก 0 ถึง 104; มันถูกหารด้วยสี่และเพิ่มเข้าไปในค่า ascii สำหรับAและอักขระผลลัพธ์ถูกพิมพ์

R, 30 28 27 27

write(rep(LETTERS,e=4),1,1)

รุ่นก่อนหน้านี้มี 30 ไบต์:

cat(rep(LETTERS,e=4),sep="\n")

C, 59

ฉันส่งสิ่งนี้เป็นคำตอบที่ไม่มีการตอบสนองที่ยาวนานเนื่องจากฉันยังไม่เห็นการส่งข้อมูล C และนั่นทำให้ฉันเศร้า : - /

LATER: Props ไปยัง @moala สำหรับทำรุ่น int / "4 ตัวช่วยลด 13 ตัวอักษร!

float i;main(){while(i<26)printf("%c\n",65+(int)i),i+=.25;}

J: 18 13

4#u:65+i.26 1

^{ฉันยังค่อนข้างสั่นคลอนกับ J ดังนั้นสิ่งนี้อาจปรับปรุงได้}

ทับทิม, 23

puts ([*?A..?Z]*4).sort

เครดิตทั้งหมดให้กับ @manatwork - โหวตขึ้นความคิดเห็นของเขาไม่ใช่สิ่งนี้ :)

PowerShell: 32 23

รหัส Golfed:

[char[]](65..90*4)|Sort

เกมส์:

[char[]](... )ใช้อาร์เรย์ของวัตถุและแปลงเป็นอักขระ ASCII
65..90เป็นรหัส ASCII สำหรับ AZ
*4ทำซ้ำซีรีส์ 4 ครั้ง
|Sortเรียงลำดับผลลัพธ์

บันทึก:

หากคุณต้องการให้สิ่งนี้เขียนไปยังไฟล์เพียงแค่โยน>ตามด้วยชื่อไฟล์ในตอนท้าย

Haskell, 46

x a=a++a
main=putStr$['A'..'Z']>>=x.x.(:"\n")

Befunge 98 - 18

1+::'g`#@_4/'A+,a,

ทำงานโดยการจัดเก็บตัวเลขและสิ้นสุดเมื่อถึง 104 พิมพ์อักขระที่สอดคล้องกันของตัวอักษรสำหรับตัวเลขหารด้วย 4 ตามด้วยการขึ้นบรรทัดใหม่ แต่ถ้าฉันไม่ต้องการเพิ่มบรรทัดใหม่หลังจากตัวอักษรแต่ละตัวมันก็คือ 16 ตัวอักษร:

1+::'g`#@_4/'A+,

สามารถลดลงได้ถ้าฉันสามารถพิมพ์ตัวละครมากขึ้น (เช่นทั้งหมดสี่ครั้ง) ( 7 6 ตัวอักษรแม้ทำงานใน Befunge 93):

1+:4/,

ด้วยการขึ้นบรรทัดใหม่:

1+:4/,a,

GolfScript: 17 15 ตัวอักษร

26,{65+...}%+n*

Perl 5, 21

map{print"$_
"x4}A..Z

C, 46 44 43

46 :

i;main(){while(i<104)printf("%c\n",65+i++/4);}

44 :

i=260;main(j){for(;(j=i++>>2)<91;puts(&j));}

44 ด้วย:

i=260;main(j){while(j=i++>>2,j<91)puts(&j);}

ขอบคุณ @marinus, 43:

i=260;main(j){while(j=i++/4,j<91)puts(&j);}

ฉันควรเพิ่มค่าหัวสำหรับการเข้า 42 ไหม? :)

Java: 56

for(int i=0;i<104;)System.out.println((char)(i++/4+65));

แก้ไข: เปลี่ยนจาก 'print' เป็น 'println'

มา, 37

'h 0 [do] [i] 4 / 'A + emit cr [loop]

ที่จริงแล้ว 6 ไบต์

4ú*SÖi

ลองที่นี่!

คำอธิบาย

4ú*SÖi

4 *         Do 4 times
 ú          Create string of alphabet in lowercase
   S        Sort it
    Ö       Switch Case
     i      Push each character of string

4 ไบต์ที่มีตัวพิมพ์เล็กและไม่มีบรรทัดใหม่:

4ú*S

รหัสเครื่อง x86 แบบ 16 บิต MS-DOS COM ขนาด 25 ไบต์

ในรูปหกเหลี่ยม:

B409BA160189D7B96800F6C1037502FE05CD21E2F5C3400A24

นี่เป็นโปรแกรม MS-DOS .COM ที่สมบูรณ์ คัดลอกลำดับไบต์ไปยังไฟล์ที่มีนามสกุล. com และเรียกใช้จาก DOSBox

ถอดชิ้นส่วน:

00: B4 09        mov    ah,0x09         ;INT 21h "Write string to STDOUT" function
02: BA 16 01     mov    dx,0x116        ;Address of the string s ('$'-terminated)
05: 89 D7        mov    di,dx           ;Because there's no way to dereference address in DX
07: B9 68 00     mov    cx,104          ;CX=26*4
_0000000A:
0A: F6 C1 03     test   cl,0x03         ;When lower two bits are zero...
0D: 75 02        jne    _00000011       ;...do not skip the next instruction
0F: FE 05        inc    b,[di]          ;*s++
_00000011:
11: CD 21        int    21              ;Print the string
13: E2 F5        loop   _0000000A       ;Until --CX==0
15: C3           retn
16: 40           db     0x40            ;s[0], starts with 'A'-1
17: 0A           db     0x0A            ;'\n'
18: 24           db     '$'             ;Terminator required by the print function

BrainF * , 79 60

+++++++++++++[->++>+>+++++<<<]>>---<[->>>++++[-<.<.>>]<+<<]

AWK, 48

ลองด้วย AWK ...

END{s=65;for(i=104;i--;s+=0==i%4)printf"%c\n",s}

ตามที่แนะนำโดยmanatworkเราสามารถกำจัด 2 chars ได้

AWK, 46 (แก้ไข)

END{for(i=104;i--;s+=0==i%4)printf"%c\n",s+65}

AWK, 40 (แก้ไขรหัสของMarkReed )

END{for(;i<104;){printf"%c\n",i++/4+65}}

PowerShell, 21

65..90|%{,[char]$_*4}

แนวทางที่แตกต่างกันเล็กน้อยสำหรับ Iszi และสั้นกว่า :-)

C # LINQ 115 ไบต์ 110 ไบต์

Enumerable.Range(65, 26).SelectMany(i => Enumerable.Repeat(i,4))
.ToList().ForEach(i=> Console.WriteLine((char)i));

05AB1E, 6 ไบต์

A4×{S»

คำอธิบาย:

A       # Push 'abcdefghijklmnopqrstuvwxyz'
 4×     # Repeat four times
   {    # Sort
    S   # Split into list
     »  # Join by newlines
        # Implicit print

ไม่มีบรรทัดใหม่ 4 ไบต์

A4×{

ลองออนไลน์!

Jelly , 5 ไบต์ (ไม่ใช่การแข่งขัน?)

ØAx4Y

ลองออนไลน์!

คำอธิบาย:

ØAx4Y Main link
ØA    “ABCDEFGHIJKLMNOPQRSTUVWXYZ”
   4  4
  x   Repeat each element of x y times
    Y Join x with newlines

Perl 6, 32

.say for (('A'..'Z') »xx»4)[*;*]

Canvas ขนาด 5 ไบต์

Ｚ４１＊⟳

ลองที่นี่!

Code        | Explanation                                  | Stack
------------+----------------------------------------------+------------------------------
Ｚ          | The uppercase alphabet                       | "ABC..."
  ４１＊     | Stretched by 4 horizontally and 1 vertically | "AAAABBBBCCCC..."
        ⟳  | Rotated clockwise                            | "A¶A¶A¶A¶B¶B¶B¶B¶C¶C¶C¶C¶..."
            | Print ToS (implicit)                         |

ด้วยการ¶แทนที่ด้วย\nเมื่อพิมพ์

Kotlin , 66 59 ไบต์

บันทึกการลบ 7 ไบต์สำหรับการวนซ้ำ

fun main(a:Array<String>){repeat(104){println('A'+(it/4))}}

ลองออนไลน์!

brainfuck , 48 ไบต์

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

ลองออนไลน์!

พิมพ์เป็นตัวพิมพ์เล็กคั่นด้วยการขึ้นบรรทัดใหม่ ใช้การห่อเซลล์ 8 บิตเช่นเดียวกับเซลล์ที่เหลืออยู่ของแหล่งกำเนิดแม้ว่าคุณสามารถเพิ่ม a >เพื่อตอบโต้หลัง

Bash: 24 ตัวอักษร

printf %s\\n {A..Z}{,,,}

Dc: 35 ตัวอักษร

[rdP10Pr1-d1<p]sp65[5lpx+d91>l]dslx

สกาลา, 42

('A'to'Z')map(x=>List.fill(4)(println(x)))

Julia, 39 , 36

println([char(i/4+64.5)for i=0:103])