อักขระ ASCIIจากรหัสทศนิยม 33-126 คือ:

!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~

โปรดสังเกตว่าในแบบอักษรส่วนใหญ่ 25 ตัวอักษรเหล่านี้มี "หลุม" ในพวกเขา: ( ประเภทที่มากกว่า 0คุณอาจพูด)

#$%&04689@ABDOPQRabdegopq

อีก 68 ตัวอักษร "ไม่บริสุทธิ์" คือ:

!"'()*+,-./12357:;<=>?CEFGHIJKLMNSTUVWXYZ[\]^_`cfhijklmnrstuvwxyz{|}~

งานของคุณคือการเขียนโปรแกรมที่สั้นที่สุดเท่าที่จะทำได้โดยใช้เฉพาะอักขระที่ไม่มีการตัดทอนซึ่งแสดงผลอักขระที่อยู่ในแต่ละครั้งในลำดับใด ๆ

เนื่องจาก Space, Tab และ newlines (Line Feed และ / หรือ Carriage Return) เป็นพื้นที่ว่างที่อาจปรากฏในโปรแกรมหรือเอาท์พุตของมัน พวกเขายังคงนับรวมจำนวนอักขระ ห้ามใช้อักขระ ASCII อื่น (และไม่ใช่อักขระที่ไม่ใช่ ASCII)

หมายเหตุ

• คุณไม่จำเป็นต้องใช้อักขระที่ไม่ได้ตัดทั้งหมดหรืออย่างใดอย่างหนึ่งเท่านั้น
• ผลลัพธ์อาจไม่มีอักขระที่ไม่ได้หุ้ม
• ภาษาช่องว่างอาจจะใช้
• เอาต์พุตควรไปที่ stdout หรือสามารถไปที่ไฟล์ ไม่ควรมีอินพุต

โบนัส:เพื่อความสนุกลองพิมพ์ตัวละครที่ไม่ได้ใช้ตัวละครทั้งหมด ฉันสงสัยว่ามันสามารถทำได้ในภาษาที่มีอยู่

Pyth , 43 35 ตัวอักษร

tTFk"*+,-7;=?GHIKVWXYhiklnvwx"C-Ck7

ลองมันนี่

พิมพ์อักขระตามลำดับยกเว้นว่า 9 อยู่ที่จุดเริ่มต้นบรรทัดใหม่จะถูกคั่น

สตริงมีอักขระทั้งหมด 7 ตัวที่มากกว่าที่จำเป็นยกเว้นว่า 9 จะกลายเป็น @ ดังนั้นมันจึงเป็นกรณีพิเศษ อัลกอริทึมต้องขอบคุณ @Howard

คำอธิบาย:

tT                print(10-1)                T=10, t(x)=x-1 if x is an int.
Fk"<string>"      for k in "<string>":
C-Ck7             print(chr(ord(k)-7))       Note that C is overloaded as ord and chr.

GolfScript, 37 36 ตัวอักษร

[":=<?)-/! YX[]VIHKx{}|~vih"{25^}/]+

ลองรหัสที่นี่

สตริงมีอักขระต้องห้าม xor'ed ที่มี 25 โชคดีที่อักขระทั้งหมดถูกแมปกับอักขระที่ถูกต้อง

Brainfuck 119

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

โบนัส - dc, 179 ตัวอักษร

โอ้ดีความท้าทายชุดอักขระที่ จำกัด อีกตัวหนึ่งที่Pอนุญาต

6A44469PD684P44D4898PDB99P4008D0BP486B48BPA60BPD096P4A68666P460A0D4P690490AP8084088P6B6AB66P6BBB608P80D4BAAPA046PBAD4P60A6668P480DD96P4A040BBP848BP40DD8D0P46840B6P696B48BP48D64BAP

เนื่องจากdcเห็นได้ชัดว่าไม่ชัดเจนพอที่จะอธิบาย (แปลก ๆ ที่ฉันคิดเรื่องแปลก ๆ ที่นี่!) นี่เป็นภาพรวม:

ส่วนใหญ่เป็นเครื่องคิดเลข RPN ที่มีความแม่นยำทางคณิตศาสตร์โดยพลการ แต่สำหรับความท้าทายนี้ฉันใช้ประโยชน์จากPคำสั่งซึ่งตีความตัวเลขเป็นชุดอักขระในฐาน 256 และพิมพ์ออกมา ตัวอย่าง: 65 Pพิมพ์A(รหัส ASCII 65) 16706 Pพิมพ์AB(16706 = 65 * 256 + 66)

นอกเหนือจากนั้นคุณลักษณะที่น่าสนใจอื่น ๆ เท่านั้นคือมันรับรู้เลขฐานสิบหกทั้งหมด0-9A-Fแม้ว่าพวกเขาจะไม่ได้อยู่ในเลขฐานสิบหก การป้อนข้อมูลทศนิยมเป็นค่าเริ่มต้นเพื่อให้การป้อนข้อมูลโทเค็น999หมาย9 hundreds + 9 tens + 9และABCหมายถึงการทำให้มันเทียบเท่ากับ10 hundreds + 11 tens + 121122

ความสามารถในการใช้ตัวเลขABDในรูปทศนิยมบางส่วนนั้นทำให้ไม่สามารถใช้งาน12357ได้และส่วนที่เหลือในการเลือกการสั่งซื้อและการจัดกลุ่ม (ถ้าฉันต้องตัวเลขบางx, y, zและพวกเขาจะไม่ representable ด้วยตัวเลขที่ได้รับอนุญาตแล้วฉันพยายามเป็นตัวแทนx*256*256+y*256+zแทน.)

โปรแกรมอาจจะสั้นลงเล็กน้อยโดยใช้กลุ่มที่ใหญ่กว่า ฉันไม่ได้ไป 3 ไบต์ต่อตัวเลข

Bash + coreutils, 56 ไบต์

tr \(-y \!-r<<<'*+,-7;=?GHIKVWXYhiklnvwx'
tr C-F 7-:<<<E

โชคดีที่มีมันการเพิ่ม 7 ลงในค่า ascii ของอักขระ holed จะให้ผลลัพธ์อักขระที่ไม่มีการใส่ทั้งหมด (ยกเว้น "9") เราก็แค่แปลงรูปนี้กลับกันแล้วก็แปลงที่คล้ายกัน (ลบ 12 จาก "E") เพื่อให้ได้ "9"

เอาท์พุท:

#$%&0468@ABDOPQRabdegopq
9

Perl - 49 ไบต์

symlink".",':=<?)-/! YX[]VIHKx{}|~vih'^chr(25)x25

นี่เป็นทางออกของโฮเวิร์ดในภาษา Perl XORing สตริงกับ 25 #$%&04689@ABDOPQRabdegopqการส่งออกเป็นไฟล์ที่มีชื่อ ฉันมีความคิดที่จะใช้symlinkและชื่อไฟล์เป็นรูปแบบผลลัพธ์เพราะทุกอย่างถูกแบน

นี่เป็นอีกหนึ่งทางออกของ Perl ที่ฉันคิดขึ้นมา มันอาจจะปรับปรุงได้มากและมันก็ค่อนข้างยาวดังนั้นตอนนี้ฉันจะอยู่ในรูปแบบที่อ่านได้

until(y/1/1/>32){s//1/}
until(y/1/1/>125+1){
    if(chr(y/1/1/)!~/[!"'()*+,-.\/12357:;<=>?CEFGHIJKLMNSTUVWXYZ[\\\]^_`cfhijklmnrstuvwxyz{|}~]/) {
        symlink".",chr y/1/1/;
    }
    s/^/1/
}

อันนี้ส่งออกไฟล์จำนวนมากชื่อของแต่ละคนเป็นหนึ่งในตัวละคร ฉันไม่สามารถหาวิธีต่อท้ายสตริงได้โดยไม่ต้องใช้ตัวอักษรต้องห้าม

for, while, map, say, print, eval, s///eและชื่อตัวแปรใด ๆ ที่ไม่สามารถนำมาใช้ (ตัวแปรเริ่มต้นด้วย@หรือ$ใน Perl) ซึ่งทำให้ยากลำบากนี้

หวังว่าชื่อไฟล์จะโอเคเป็นรูปแบบผลลัพธ์เนื่องจากฉันค่อนข้างแน่ใจว่าทุกวิธีในการส่งออกข้อมูลใช้หนึ่งในอักขระที่ถูกแบน

MATLAB, 36 ไบต์

ดังนั้น .... เพียง 1 ไบต์มากกว่าผู้ชนะปัจจุบัน (isaacg)! ซึ่งในการตรวจสอบเพิ่มเติมฉันได้ทำสิ่งที่ฉันทำไปแล้วเช่นกัน ไม่เป็นอันตรายในการพลิกโฉมพวงมาลัย ...

ฉันรู้ว่านี่เป็นความท้าทายที่เก่าแก่ แต่ฉันก็รู้ว่าหลังจากฉันสนใจ

['*+,-7;=?GHIKVWXYhiklnvwx'-7,57,'']

ถ้าเพียง แต่ฉันสามารถให้ MATLAB เข้าใจว่าฉันต้องการสตริงที่ไม่มี''คำแนะนำ ... แยกกันทุกคน?

Brainfuck 303 275

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

Brainfuck ภาษาลับสุดยอดที่ไม่บริสุทธิ์ (นอกเหนือจาก Whitespace);)

JS - 196 - ลองดู

h=(c=!1+[])[1];i=c[2*2];j=(f=[]+{})[1];this[i+'v'+h+'l'](h+'l'+i+'rt('+h+'t'+j+f[2]+'("Iy\x51lJj\\x'+2*2+'1\\x3'+~-1+'Nj\\x'+2*3+'75\x51EFC\x52E\\x3'+3*3+'\x51UVJhYm\x52lZ2\\x3'+3*3+'wc\x51=="))')

GolfScript, 89 ตัวอักษร

71 22+,{33+}/]''+'!"\'()*+,-./12357:;<=>?CEFGHIJKLMNSTUVWXYZ[\]^_`cfhijklmnrstuvwxyz{|}'-

เพียงแค่สร้างอาร์เรย์ของอักขระ ASCII ทั้งหมดและลบอักขระที่ไม่ใช่ "holed" ออกจากพวกเขา

71 22+,  # Builds array of 0..93
{33+}/]  # Converts to 33..126
''+      # Convert ASCII codes to string
'stuff'- # Subtracts "stuff" (the non-holed characters) from the string

Befunge 98 - 69 bytes

"()+ijWI=*">:5j2 ,-5_"157:h">:5j2 ,-1_"=>?LMN^_lmn">:5j2 ,+3_"?"1+s <

ทำได้ใน 3 ส่วน หนึ่งที่ค่าของตัวอักษรที่ไม่บริสุทธิ์แตกต่างจากตัวอักษรแบบ holed คูณ 5 จากนั้นตัวอักษรที่แตกต่างกัน 1 และสุดท้ายก็คือรายชื่อตัวละครแบบ unholed ที่ต่างกัน 3 ตัว คำสั่งโปรแกรมยุติใน Befunge คือ "@" (ค่าถ่าน 64) ดังนั้นตอนท้ายฉันโหลด "?" (ค่าถ่าน 63) เพิ่ม 1 จากนั้นใส่รหัสนั้นลงในคำสั่ง 's'

ฉันอาจจะเล่นกอล์ฟให้มากกว่านี้ด้วยการรวมสามอย่างนี้เข้าด้วยกัน

>:5j2 ,(differ value)_

ส่วน แต่อาจไม่มาก

JavaScript 240 228

การส่งครั้งแรก:

z=(!1+"")[1];y=(!!1+"")[3];x={}+"";w=x[1];v=x[2];u=z+"t"+w+v;1[_="c\157nstruct\157r"][_](z+'l'+y+'rt('+u+'("Iy\x51lJj"+'+(t=u+'("\x51\x51==")')+'+'+u+'("M"+'+t+'+"==")+"Nj"+'+u+'("Zw==")+"5\x51EFC\x52E\71\x51UVJhYm\x52lZ2\71wc\x51=="))')()

ตอนนี้เป็นการเริ่มต้นที่ดีนี่คือวิธีที่จะแยก ...

z=(!1+"")[1];        // assigns "a" to z, !1+"" === "false"
y=(!!1+"")[3];       // assigns "e" to y, !!1 === "true"
x={}+"";             // assigns "[object Object]" to x
w=x[1];v=x[2]        // assigns "o" to w, and "b" to v
u=z+"t"+w+v;         // creates the mystical "atob" command, yes, I'm gonna use it!
1[_="c\157nstruct\157r"][_] // sets up the primitive to a number object... this acts similar to the "window" primitive object so that I can play off functions...
z+'l'+y+'rt(         // starts creating an alert call
'+u+'("Iy\x51lJj"+'+(t=u+'("\x51\x51==")')+'+'+u+'("M"+'+t+'+"==")+"Nj"+'+u+'("Zw==")+"5\x51EFC\x52E\71\x51UVJhYm\x52lZ2\71wc\x51=="))')()
// Above line abuses atob command with a couple of nested instances of the command, also using hex and octal equivalents of characters

แล้วฉันก็คิดว่า ... "ต้องมีวิธีที่ง่ายกว่า ... " และมี ...

แก้ไขการส่ง: z=(!1+"")[1];y=(!!1+"")[3];x={}+"";w=x[1];v=x[2];u=z+"t"+w+v;this[y+"v"+z+"l"](z+'l'+y+'rt('+u+'("Iy\x51lJj"+'+(t=u+'("\x51\x51==")')+'+'+u+'("M"+'+t+'+"==")+"Nj"+'+u+'("Zw==")+"5\x51EFC\x52E\71\x51UVJhYm\x52lZ2\71wc\x51=="))')

เห็นฉันสามารถใช้eval (โดย piecing มันเข้าด้วยกันแรงบันดาลใจจาก @bebe; ซึ่งเป็นมากเร็วกว่าการใช้constructorของconstructorของnumber... ) ฉันเจาะลงไป 228 ... ฉันรู้ว่ามันอาจจะไม่ชนะนี้ท้าทายกอล์ฟโดยเฉพาะอย่างยิ่ง แต่นี่เป็นเพียงวิธีของฉันในการแสดงว่าคุณสามารถละเมิดจาวาสคริปต์มากแค่ไหนและยังได้รับผลลัพธ์ที่ต้องการ ...

หน้าหลัก - โรคนอนไม่หลับ , 50

FFy~~jF~y<={*n<<ztf>={.f=(tHL~k<yf={*n>Lj(FunLn<j~

มันออก:

abdegopq04689@ABDOPQR#$%&

โบนัส - โรคนอนไม่หลับ, 268

ogeeoddp@poe@ggep@oe@opge@gee@%d@p@gqeo@p@ge@e9de49ed9e4dppe@%e@geee@ge@p%ee@%e@dp@%ep@%ee@%d@%eeee@%e@%ee@%e@geee@%e@gee@ggopop@peo@ggep@p@ge@ggeep@ge@gee@%e@geee@ge@gee@ge@ppoep@%ee@%edep@gepe@ge@%ee@%e@geee@ge@%ee@%%eeoe@ge@pep@%gep@p@%e@%%eep@%e@gee@e%e@oe@%gep@p@

มันออก:

!"'()*+,-./12357:;<=>?CEFGHIJKLMNSTUVWXYZ[\]^_`cfhijklmnrstuvwxyz{|}~

ฉันคิดว่ามันน่าจะเป็นไปได้ที่จะลดความยาวของโปรแกรมหากมีการจัดเรียงผลลัพธ์ใหม่ แต่ฉันต้องแก้ไขโปรแกรมค้นหาเพื่อทำสิ่งนี้

เพียงเพื่อแสดงภาษาอื่นที่สามารถใช้งานได้ด้วยจำนวนอักขระที่ จำกัด โดยวิธีการมันสามารถเขียนเพียงเกี่ยวกับการส่งออกใด ๆ ที่มีเพียง 3 ตัวอักษรที่ไม่ซ้ำกันในแหล่งที่มา

ปัจจุบันนี้เป็นภาษาเดียวที่สามารถทำทั้งความท้าทายหลักและโบนัสในคำตอบที่มีอยู่ทั้งหมด

นอนไม่หลับล่าม

Befunge 98 - 46 ไบต์

Befunge-ified เวอร์ชันของรายการ Pyth ของ isaacg:

"xwvnlkihYXWVKIHG?=;7-,+*">:5j2 ,-7_"?"1+:,s <

Japt , 33 ไบต์

7+2+"*+,-7;=?GHIKVWXYhiklnvwx"c-7

ลองออนไลน์!

อัลกอริทึมเช่นเดียวกับการส่ง Pyth ของ isaacgเพิ่งจะสั้นลงใน Japt

มันทำงานอย่างไร

7+2+"*+,-7;=?GHIKVWXYhiklnvwx"c-7

7+2           Obviously the number 9
    "..."c-7  Apply -7 on each char's charcode of this string
   +          String concatenation

ใช่มันคือ JS ซึ่งเป็นหนึ่งในภาษาที่ใช้งานไม่ได้มากที่สุดสั้นลง (และคุณไม่ต้องการalertหรือconsole.logที่นี่)