ผู้ชนะ: คำตอบทุบตีของ professorfish ! ทั้ง 9 ไบต์! ว้าว!

คุณสามารถส่งคำตอบของคุณต่อไปได้ แต่คุณจะไม่สามารถชนะได้อีกต่อไป โพสต์ต้นฉบับเก็บไว้สำหรับลูกหลาน:

เป้าหมายของคุณคือการแปลงจำนวนเต็มระหว่าง 1-9 เป็นคำที่แสดง

• คุณไม่จำเป็นต้องกังวลเรื่องทศนิยม
• ผู้ใช้จะป้อนหมายเลข สมมติว่าพวกเขาจะไม่ป้อนอะไร 10 หรือสูงกว่า
• ผู้ใช้ต้องพิมพ์ตัวเลขในบางจุดอย่างไรก็ตามวิธีการที่โปรแกรมอ่านไม่สำคัญ มันอาจจะเป็นกับ stdin อ่านไฟล์ข้อความ ฯลฯ อย่างไรก็ตามผู้ใช้จะต้องกดปุ่ม 9 บนแป้นพิมพ์ของพวกเขา (ตัวอย่าง) ในบางจุด
• ไม่คำนึงถึงขนาดตัวพิมพ์ (เช่น "หนึ่ง", "หนึ่ง", "oNe", "OnE" และอื่น ๆ ทั้งหมดเป็นที่ยอมรับได้)
• อนุญาตให้ใช้คำขอ HTTP / etc อย่างไรก็ตามโค้ดใด ๆ ที่ดำเนินการโดยเซิร์ฟเวอร์จะทำการนับจำนวนไบต์ของรหัสสุดท้ายของคุณ (เช่นถ้าฉันมีโปรแกรม C ++ ทำการร้องขอ HTTP, โค้ด PHP ที่ใช้ในการนับคำขอ HTTP )
• สิ่งใดก็ตามที่สามารถคอมไพล์และรันได้นั้นยอมรับได้

• การประกวดนี้สิ้นสุดลงเมื่อ 27 มิถุนายน 2014 (7 วันนับจากการโพสต์)
• นี่คือรหัสกอล์ฟดังนั้นรหัสที่สั้นที่สุดชนะ

Bash (with bsdgames), 9

number -l

อ่านจากอินพุตมาตรฐาน

ฉันไม่รู้ว่าทำไมถึงมีประโยชน์สำหรับเรื่องนี้ แต่อย่างใด

Python 2, 64

print' ottffssennwhoiieiieoruvxvgn  ere ehe  e   nt'[input()::9]

นี่คือลักษณะของสตริงที่มีช่องว่างพิเศษ (ลองอ่านในแนวตั้ง):

o t t f f s s e n
n w h o i i e i i
e o r u v x v g n
    e r e   e h e 
    e       n t

ตามที่อธิบายไว้ในความคิดเห็นด้านล่าง[input()::9]เริ่มต้นที่ดัชนีที่กำหนดและเลือกตัวละครที่ตามมาทุกเก้า

Common Lisp - 22 ไบต์

นี่คือทั่วไปหนึ่ง (ไม่เพียงสำหรับหนึ่ง - สิบ):

(format nil"~R"(read))

โอ้คุณต้องการเลข (แรก, สอง, ... สามร้อย ... )? ตกลง!

(format nil"~:R"(read))

ทุบตี 51

ดังนั้นฉันจึงสร้างอีกแนวคิดหนึ่งโดยใช้ความคิดที่สองของฉันบวกกับความช่วยเหลือจากผู้อื่น:

set one two three four five six seven eight nine

$X

ที่ 'X' คือหมายเลขที่คุณต้องการ

BASH 48 (67)

67 มี\nตัวแบ่งบรรทัด

ฉันไม่แน่ใจว่าทั้งหมดนี้นับเพราะอ่านจากไฟล์ แต่:

sed -n Xp a

โดยที่ "X" คืออินพุตและaไฟล์อยู่ที่ไหน:

one
two
three
four
five
six
seven
eight
nine

ไฟล์คือ 36 ตัวอักษรและคำสั่ง bash คือ 13

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

แต่ละบรรทัดในไฟล์จะถูกกำหนดหมายเลขเริ่มต้นด้วย 1 ดังนั้น 'หนึ่ง' จึงอยู่บนบรรทัดที่ 1 'สอง' ในวันที่ 2 คำสั่งsed -n 'Xp' aกล่าวว่า "โปรดพิมพ์สิ่งที่อยู่ในรายการ 'X' ของไฟล์ 'a'" sedเป็นเครื่องมือแก้ไข Unix -nหมายถึงเงียบหรือไม่สนใจสิ่งอื่นเป็นหลัก Xpหมายถึงพิมพ์สิ่งที่อยู่ในบรรทัด 'X'

C # - 127 (86/46)

ถ้าคุณใช้ส่วนที่ปฏิบัติการได้เท่านั้น ...

Console.Write(((HourOfDay)Console.Read()-48));

และหากHourOfDayจะเป็นส่วนหนึ่งของ System namespace คุณจะต้องมี 46 ตัวอักษร น่าเสียดายที่มันอยู่ในSystem.DirectoryServices.ActiveDirectoryที่ที่ทำให้ 86 ... เสียงรบกวนอื่นทำลายมัน

สิ่งนี้สามารถคอมไพล์ได้และรันได้จาก commandline (127 chars):

using System;class P{static void Main(){Console.Write((System.DirectoryServices.ActiveDirectory.HourOfDay)Console.Read()-48);}}

หากบันทึกลงในไฟล์ชื่อ cg2.cs

csc cg2.cs /r:System.DirectoryServices.dll  && cg2

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

HourOfDay เป็นประเภท enum เพื่อให้เราสามารถใช้ชื่อแทนค่าคงที่เวทมนตร์ ประเภท Enum มีการใช้งาน ToString () ที่ให้ชื่อของค่าแก่คุณ คุณสามารถส่ง int ถึง enum ได้ Console.Read ()อ่านอักขระจากอินพุตสตรีมที่แทนด้วยจำนวนเต็ม พิมพ์ '1' ให้49 , substract 48 เพื่อรับ 1, โยน / กล่องHourOfDayเพื่อส่งคืน 'หนึ่ง'

ลองดูที่ Powershell เวอร์ชั่นของเล่ห์เหลี่ยมเดียวกันนี้

Befunge 98, 116 105 103 ไบต์

&1-       v
vvvvvvvvvj<
"""""""""
etnxereoe
nheivuewn
igvsiorto
nie"ffh""
"es ""t
 ""   "
>>>>>>>>>4k,@

Befunge ไม่ได้ถูกสร้างขึ้นเพื่อสิ่งนี้ ...

คำอธิบาย:

&1-           ;Grab the input number (`n`) and subtract 1 from it
&1-       v   ;Start moving downwards
          <   ;Start moving leftwards
         j    ;Jump `n - 1` characters to the left.
vvvvvvvvvj    ;Redirect each of the possible locations to jump to, sending the IP down.

        "     ;If `n` was 1, push `o, n, e` onto the stack (`o` is at the bottom)
        e
        n
        o
        "

       "      ;If `n` was 2, push `t, w, o` onto the stack
       o
       w
       t
       "

    *
    *
    *

"             ;If `n` was 9, push `n, i, n, e` onto the stack
e
n
i
n
"

>>>>>>>>>     ;Collect all the different possible positions the IP could be in, and send it right
>>>>>>>>>4k,  ;Print the top 5 chars. If there are less than 5, the rest are null characters. This is allowed
            @ ;End of program

Javascript 68

Atob / btoa เป็นเครื่องมือบีบอัดข้อมูลของคนจน (แต่ถ้าคุณต้องการลองในคอนโซลคุณไม่สามารถคัดลอกจากข้อความที่จัดรูปแบบที่คุณเห็นในครั้งเดียวไปที่ 'แก้ไข' และคัดลอกจากแผงแหล่งข้อมูล)

เครื่องมือแก้ไข Markdown ไม่ชอบตัวละครบางตัวในคำตอบนี้: ตัวละครบางตัวหายไปขณะกำลังบันทึก ถึงกระนั้นฉันคิดว่ามันเป็นปัญหาบรรณาธิการไม่ใช่ของฉัน อักขระที่หายไปนั้นเป็นตัวอักษรแบบ Unicode ที่ถูกต้อง 8 บิต
(หรือฉันผิดถ้าปัญหานี้ได้รับการถกเถียงกันแล้วในเมตาแจ้งให้ฉันทราบ) นี่คือรุ่นที่มีตัวละครที่ทำผิดกฎหมายหนีแต่ละลำดับ \ xNN ควรนับ 1

alert(btoa("×C§{Dð£Dá­ç´\x16\x8b«ÐX¯{D¢ÇD\x9e½éô\x12(!·Cb\x9dí").split(0)[prompt()])

ทดสอบง่าย

ในคอนโซล Firefox:

[0,1,2,3,4,5,6,7,8,9]
.map(x=>x +',' btoa("×C§{Dð£Dá­ç´\x16\x8b«ÐX¯{D¢ÇD\x9e½éô\x12(!·Cb\x9dí").split(0)[x])

Javascript 73

alert('0one0two0three0four0five0six0seven0eight0nine'.split(0)[prompt()])

69

alert(btoa("ôéÞõ5õ1ëxO_¢êý|Þöȱõ'xß^hSôا{Ý").split(9)[prompt()])

Perl, 55

$_=(nine,eight,seven,six,five,four,three,two,one)[-$_]

มันทำงานด้วยตัวเลือก-p(+1 ไบต์) เช่น:

perl -pe '$_=(nine,eight,seven,six,five,four,three,two,one)[-$_]'

คาดว่าอินพุตเป็น STDIN และเอาต์พุตถูกเขียนไปยัง STDOUT

รหัสเพิ่งสร้างอาร์เรย์และเลือกองค์ประกอบที่เหมาะสม ตัวเลือกที่-pจะดูแลการอ่านบรรทัดการป้อนข้อมูลเข้าและพิมพ์ผลใน$_$_

รูปแบบ:

• ด้วยการขึ้นบรรทัดใหม่ (+3):

  $_=(nine,eight,seven,six,five,four,three,two,one)[-$_].$/

  หรือ (นับไบต์เดียวกัน):

  s/./(nine,eight,seven,six,five,four,three,two,one)[-$&]/e

ปรับปรุง:

• ใช้คำเปล่าแทนqw[...](ขอบคุณ Zaid)

• ดัชนีลบบันทึกไบต์ (ขอบคุณ aragaer)

Oracle SQL - 46

select to_char(to_date(&1,'j'),'jsp')from dual

สาธิต

ซึ่งรวมถึงช่องโหว่มาตรฐานฉันยอมรับ แต่ SQL นั้นสั้นกว่า Golfscript ฉันไม่สามารถต้านทาน!

มันทำงานโดย (ab) โดยใช้รูปแบบรูปแบบวันที่และเวลาของ Oracle TO_DATE(n, 'j')แปลงตัวเลขเป็นวันจูเลียนจำนวนวันตั้งแต่วันที่ 1 มกราคม 4712 BC TO_CHAR(<date>, 'jsp')แปลงกลับเป็นจำนวนเต็ม (แม้ว่าจะเป็นสตริง) กระบวนการsp, เป็นส่วนต่อท้ายองค์ประกอบรูปแบบที่สะกดหมายเลข มันจะใช้งานได้จริงกับตัวเลขจำนวนมาก

&1เป็นตัวแปรเปลี่ยนตัวเท่านั้นที่จะทำงานร่วมกับลูกค้าที่ยอมรับมันเช่น SQL * Plus

CJam, 45 43 ไบต์

"^AM-^L8M-xM-^L^US^_M-^WrM-rM- 1M-s^CHM-|M-X^HE,M-qM-^EM-q4"256bKb'ef+'j/li=

ข้อมูลด้านบนใช้เครื่องหมาย ^ และ M- เนื่องจากอักขระบางตัวไม่สามารถพิมพ์ได้

ด้วยค่าใช้จ่ายอีก 9 ไบต์สามารถหลีกเลี่ยงอักขระที่ไม่สามารถพิมพ์ได้:

" one two three four five six seven eight nine"S/li=

ลองออนไลน์

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

" Convert the string into an integer by considering it a base-256 number.                ";

"^AM-^L8M-xM-^L^US^_M-^WrM-rM- 1M-s^CHM-|M-X^HE,M-qM-^EM-q4"256b

" Convert the integer from above into an array by considering it a base-20 number.       ";

Kb

" Add the ASCII character code of “e” to all elements of that array. This casts to char. ";

'ef+

" So far, we've pushed the string “jonejtwojthreejfourjfivejsixjsevenjeightjnine”.       ";

" Split the the above string where the character “j” occurs.                             ";

'j/

" Read an integer from STDIN and push the corresponding substring.                       ";

li=

ตัวอย่าง

$ base64 -d > convert.cjam <<< IgGMOPiMFVMfl3LyoDHzA0j82AhFLPGF8TQiMjU2YktiJ2VmKydqL2xpPQ==
$ wc -c convert.cjam
43 convert.cjam
LANG=en_US cjam convert.cjam <<< 5
five

GolfScript, 51 ไบต์

~'
one
two
three
four
five
six
seven
eight
nine'n/=

มันเป็นตารางค้นหาอย่างง่าย อินพุตถูกประเมิน ( ~) อาร์เรย์ของค่าถูกสร้างขึ้นและพบดัชนี

ลองที่นี่

Perl, 60 ไบต์

$_=(ZOneTwoThreeFourFiveSixSevenEightNine=~/.[a-z]*/g)[$_]

ต้องการ-pสวิตช์ (สองไบต์)

ตัวอย่าง

$ perl -p convert.pl <<< 5
Five

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

• -pอ่านจาก STDIN $_และบันทึกผลใน

• =~/.[a-z]*/g แยก bareword ก่อนหน้านี้เป็นสตริงย่อยของตัวอักษร (ตัวพิมพ์ใหญ่) หนึ่งตัวตามด้วยตัวอักษรตัวพิมพ์เล็กจำนวนเท่าใดก็ได้

• (…) รวบรวมสารตั้งต้นเข้าไปในอาร์เรย์

• [$_] ดึงสตริงย่อยที่สอดคล้องกับการป้อนข้อมูลของผู้ใช้

• $_=…$_บันทึกผลใน

• -p$_พิมพ์ค่าของ

DOS Batch - 162 Chars (รวมตัวแบ่งบรรทัด)

คำตอบนี้ได้แรงบันดาลใจจากคำตอบ Python ของ @ grc แม้ว่าฉันจะมีบางอย่างที่คล้ายกันในใจ

@setlocal enabledelayedexpansion
@set s="ottffssennwhoiieiieoruvxvgn  ere ehe  e   nt
@set /a c=%1
@set z=!s:~%c%,1!
@if _%z%==_ exit /b
@echo %z%
@%0 %c%+9

การใช้งาน:

[ชื่อไฟล์] [หมายเลข]

ตัวอย่างเช่นหากรหัสอยู่ในไฟล์ชื่อ speak.bat และคุณต้องการดูหมายเลข "ห้า" คุณจะเรียกใช้เป็น:

speak 5

นอกจากนี้เอาต์พุตยังจากบนลงล่างไม่ใช่ซ้ายไปขวา! ดังนั้นแทนที่จะ

ห้า

แล้วคุณจะได้เห็น

f
ฉัน
v
e

Bash + coreutils, 64

แนวคิดการบีบอัดที่ไม่มีการแข่งขัน

xxd -p<<<TàPnàõ:àsÀ~®@ãCN|tr 0-9a-d \\ng-inor-x|sed -n $1p

อักขระแปลกใหม่บางตัวที่นี่อาจไม่แสดงผลที่ดีดังนั้นสคริปต์นี้อาจถูกสร้างขึ้นใหม่จากการแสดงฐาน 64:

base64 -d <<< eHhkIC1wPDw8VOCLUIJu4PWWDzrgc8B+rkDjEoBDTnx0ciAwLTlhLWQgXFxuZy1pbm9yLXh8c2VkIC1uICQxcA==

ตัวอย่างผลลัพธ์

$ ./n.sh 1
one
$ ./n.sh 9
nine
$ 

คำอธิบาย

มันเกิดขึ้นกับฉันว่าสตริงone two three four five six seven eight nineมีเพียงตัวอักษรefghinorstuvwxและตัวคั่นช่องว่าง - รวม 15 ค่าตัวอักษร ดังนั้นอักขระแต่ละตัวสามารถแสดงเป็น 4 บิตหรือ 2 อักขระต่อ 1 ไบต์ เราสามารถใช้การแสดงเลขฐานสิบหกของไบต์เป็นวิธีที่ง่ายในการแยกแต่ละไบต์เป็นเลขฐานสิบหกสองหลัก จากนั้นเราสามารถแปลงตัวเลขฐานสิบหกกลับไปเป็นตัวอักษรที่เราต้องการใช้trหรือคล้ายกัน เป็นโชคดีจะได้มันrstuvwxมีความต่อเนื่องกันดังนั้นอาจจะแสดงเป็นไปr-x trการเข้ารหัสจะถูกจัดเรียงอย่างนั้นeและfถูกปล่อยไว้ตามที่เป็นอยู่และคำนั้นคั่นด้วยตัวแบ่งบรรทัดดังนั้นเราจึงสามารถใช้sedเพื่อแสดงเฉพาะบรรทัดที่เราต้องการ

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

(บริสุทธิ์) Bash, 64

รับอินพุตเป็นอาร์กิวเมนต์แรกโดยถือว่าเป็นอินพุตที่ถูกต้อง

v=(o one two three four five six seven eight nine)
echo ${v[$1]}

สร้างอาร์เรย์vจากนั้นเข้าถึงองค์ประกอบที่ระบุในอินพุต เนื่องจากอาร์เรย์มีการทำดัชนีเป็นศูนย์ฉันจึงต้องเพิ่มองค์ประกอบที่ 0 เป็นตัวยึดตำแหน่ง อีกทางหนึ่ง (ขอบคุณ @DennisWilliamson สำหรับการชี้เรื่องนี้):

v=(one two three four five six seven eight nine)
echo ${v[$1-1]}

Python 2.x - 65 64

ไม่ดีเท่ากับคำตอบของ @grc แต่ชัดเจนมากขึ้น :-)

'one two three four five six seven eight nine'.split()[input()-1]

ถ่านหนึ่งอันน้อยกว่าต้องขอบคุณ @flornquake

'nine eight seven six five four three two one'.split()[-input()]

Java 7 - 185

class Num{
public static void main(String[] args) {
    System.out.print("ONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE".split(",")[(new java.util.Scanner(System.in)).nextInt()-1]);
    }}

C 111

#include <stdio.h>
int main(){printf("%.5s","one  two  threefour five six  seveneightnine"+5*(getchar()-'1'));}

ความยาวที่นี่ถูกออกแบบอย่างระมัดระวังเพื่อให้สามารถตีความมันเป็นไบนารีและแปลงที่ให้เป็นทศนิยม ด้วยตัวละครเพียง 7 ตัวฉันมั่นใจว่าฉันจะมีผู้ชนะ!

bash say (OS X): 3 8

"เป้าหมายของคุณคือการแปลงจำนวนเต็มระหว่าง 1-9 เป็นคำที่หมายถึง"

ครั้งล่าสุดที่ฉันตรวจสอบคำพูดก็เป็นคำศัพท์เช่นกัน ความพยายามก่อนหน้า (ไม่รับอินพุต)

say 4

แก้ไขจะต้องสามารถอ่านอินพุตได้:

say|read

พิมพ์หมายเลขใด ๆ และคำว่าจะออกมา ฉันรู้ว่าวันที่สิ้นสุดนั้นถึงกำหนดแล้ว แต่ในความคิดของฉันฉันควรจะชนะการแข่งขัน

ตัวอย่างไฟล์เสียง: four.aiff

VBScript 98 80 75

msgbox split(" one two three four five six seven eight nine")(inputbox(""))

J - 68 หรือ 60 57 หรือ 53 ไบต์

รุ่นอินเทอร์แอกทีฟ (stdin):

>one`two`three`four`five`six`seven`eight`nine{~<:".1!:1]1

รุ่นฟังก์ชั่น:

f=:one`two`three`four`five`six`seven`eight`nine>@{~<:

คำอธิบาย:

f=:one`two`three`four`five`six`seven`eight`nine>@{~<:
                                                   <: Decrease by one
                                                 {~   Get the correct string
                                               >@     Unbox

".(1!:1)1 อ่านสตริงและแปลงเป็นจำนวนเต็ม

Perl 36 (58 สแตนด์อโลน)

use Number::Spell;say spell_number<>

หรือไม่มีโมดูลเพิ่มเติม:

say qw(one two three four five six seven eight nine)[<>-1]

ใน AppleScript 123 ตัวอักษร

{"one","two","three","four","five","six","seven","eight","nine"}'s item((display dialog""default answer"")'s text returned)

สคริปต์นี้รับอินพุตในไดอะล็อก จากนั้นก็จะช่วยให้การส่งออกใน AppleScript ของ  ผล

ตัวอย่าง:

• อินพุต: 6
• ผลผลิต: "six"

นี่คือรุ่นที่ดีกว่า:

set l to {"one","two","three","four","five","six","seven","eight","nine"}
set n to text returned of (display dialog "?" default answer "")
display dialog (l's item n) buttons ("OK") default button 1

รุ่นนี้แสดงผลลัพธ์ในกล่องโต้ตอบที่ดี

ตัวอย่าง:

• อินพุต: 9
• ผลผลิต: nine

[ตอบแก้ไข; ปรับปรุงกล่องโต้ตอบสำหรับอินพุตเล็กน้อย ยังคง 124 ตัวอักษร ตอบแก้ไขอีกครั้ง ตอนนี้ 1 ถ่านน้อยลง! ]

Powershell - 91 74

[Enum]::ToObject([System.DirectoryServices.ActiveDirectory.HourOfDay],[Console]::Read()-48)

พบวิธีการส่งออกเพื่อลบการเรียก Enum และ ToObject:

[System.DirectoryServices.ActiveDirectory.HourOfDay]([Console]::Read()-48)

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

HourOfDay เป็นประเภท enum เพื่อให้เราสามารถใช้ชื่อแทนค่าคงที่เวทมนตร์ ประเภท Enum มีการใช้งาน ToString () ที่ให้ชื่อของค่าคงที่ คุณสามารถส่ง int ถึง enum ได้ Console.Read ()อ่านอักขระจากอินพุตสตรีมที่แทนด้วยจำนวนเต็ม พิมพ์ '1' ให้ 49, substract 48 เพื่อรับ 1, ส่งไปยัง HourOfDay เพื่อส่งคืน 'One'

เนื่องจาก powershell ทำ ToString บนวัตถุทั้งหมดที่ถูกเขียนไปยังกระแสข้อมูลขาออกและไม่จำเป็นต้องใช้ปุยเพื่อทำให้สิ่งนี้กลายเป็นสิ่งที่ปฏิบัติการได้ทั้งหมดที่จำเป็นนอกเหนือจาก powershell ...

CJam - 50

นี่เป็นโซลูชัน ASCII แบบธรรมดาที่ใช้การร้องขอ HTTP (ได้รับอนุญาตในคำถาม):

"aj21.com/"r+g

บนเซิร์ฟเวอร์มีไฟล์ข้อความธรรมดา 9 ไฟล์ชื่อ 1, 2, ... , 9 แต่ละไฟล์มีคำที่เกี่ยวข้อง

ขนาดทั้งหมด: 14 + 3 ("หนึ่ง") + 3 ("สอง") + 5 + 4 + 4 + 3 + 5 + 5 + 4 = 50
มันสามารถเล่นกอล์ฟได้มากขึ้นโดยใช้โดเมนที่สั้นลง

ล่ามออนไลน์ไม่สนับสนุนการร้องขอ HTTP เพื่อตอบสนองความต้องการโปรแกรมจะทำงานโดยใช้ล่ามภาษาจาวา

รุ่นที่ - 86

สั้นกว่าคำตอบแบทช์อื่น ๆ และมีการแข่งขันที่น่าประหลาดใจ

for /f "tokens=%1" %%1 in ("one two three four five six seven eight nine") do echo>%%1

ใช้เป็นfilename.bat numberและเอาต์พุตอยู่ในรูปแบบของไฟล์ที่มีชื่อของหมายเลขที่ถูกต้อง

ทับทิม 64

p %w?one two three four five six seven eight nine?[$*[0].to_i-1]

ทุบตี 9

Linux จำลองที่ไร้ยางอายของคำตอบของ cousincoicane

spd-say 1

พูดออกมาหนึ่ง

GolfScript 50 ไบต์

ฉันต้องการดูว่าฉันสามารถเอาชนะโซลูชัน GolfScript ขนาด 51 ไบต์ของ Quincunxได้หรือไม่ ปรากฎว่ามีกลอุบายเพียงพอใช่ฉันทำได้ทีละไบต์

เนื่องจากหนึ่งในเทคนิคที่ฉันใช้คือการใช้ไบต์ที่อยู่นอกช่วง ASCII ที่พิมพ์ได้โปรแกรมที่ได้จึงไม่สามารถวางได้โดยตรงที่นี่ แต่ฉันกำลังให้ดัมพ์แบบเลขฐานสิบหกแทน ผู้ใช้บนระบบ Unixish สามารถใช้xxd -rสร้างโปรแกรม GolfScript ขนาด 50 ไบต์จริงจากฐานสิบหก:

0000000: 7e6e 270b 97eb 442f e166 9894 9f00 c63c  ~n'...D/.f.....<
0000010: 8128 73a3 9b55 5065 a9fb f06a 2727 ff16  .(s..UPe...j''..
0000020: 277b 6261 7365 7d2f 2b6e 2f3d 7b39 392b  '{base}/+n/={99+
0000030: 7d25                                     }%

เคล็ดลับพื้นฐานที่ใช้ในการสร้างโปรแกรมนี้เป็นเรื่องง่าย: ฉันบีบอัดตัวอักษรสตริงที่ยาวซึ่งทำให้ส่วนใหญ่ของรหัสของ Quincunx โดยการลบ 99 (รหัส ASCII ของตัวอักษรc) จากค่าตัวอักษรตีความค่าผลลัพธ์เป็นตัวเลขในฐาน 22 (เพียงพอที่จะเข้ารหัสตัวอักษรจนถึงx) จากนั้นเข้ารหัสหมายเลขผลลัพธ์ในฐาน 255 อีกครั้งเพื่อสร้างสตริงไบต์ที่ไม่สามารถพิมพ์ได้ซึ่งทำขึ้นในครึ่งแรกของโปรแกรมของฉันเกือบทั้งหมด ส่วนที่เหลือของโปรแกรมจะกลับกระบวนการนี้ถอดรหัสสตริงกลับไปเป็นสิ่งที่พิมพ์ได้

(เนื่องจากตัวอักษรที่ต่ำที่สุดที่จริงปรากฏอยู่ในชื่อหมายเลขคือeฉันสามารถทำให้สตริงไบต์สั้นลงโดยการลบ 101 จากรหัส ASCII และใช้ฐาน 20 อย่างไรก็ตามการลบ 101 จะแมปตัวอักษรoขึ้นบรรทัดใหม่ซึ่งฉัน ใช้เป็นตัวคั่นตัวเลขเพราะสะดวกในการเป็นค่าคงที่nใน GolfScript การทำงานที่ต้องเสียค่าใช้จ่ายฉันมากกว่าหนึ่งไบต์ที่ใช้ฐานที่ต่ำกว่าจะประหยัดการใช้ offset 99 ทำให้ขึ้นบรรทัดใหม่ตามตัวอักษรmซึ่งหายไปจากชื่อหมายเลข)

นี่คือโปรแกรมรุ่นที่ไม่มีการตีกอล์ฟ:

~       # eval the input, turning it into a number
n       # push a newline onto the stack; we'll need it later

# this is the byte string encoding the number names:
"\x0B\x97\xEBD/\xE1f\x98\x94\x9F\x00\xC6<\x81(s\xA3\x9BUPe\xA9\xFB\xF0j"

# convert the encoded string from base 255 to base 22
# (and, incidentally, from a string to an array):
"\xFF\x16" {base}/

+       # prepend the newline pushed earlier to the array, re-stringifying it
n/      # split the resulting string at newlines
=       # pick the substring corresponding to the input number
{99+}%  # add 99 to the character values in the chosen substring