Kazanan: profesorf'un bash cevabı ! Bir bütün 9 bayt! Vaov!

Cevabınızı göndermeye devam edebilirsiniz, ancak artık kazanamazsınız. Posterity için tutulan orijinal yayın:

Amacınız bir dönüştürmektir bütün temsil ettiği kelimenin içine 1-9 arasındaki sayı.

• Ondalıklar için endişelenmenize gerek kalmayacak
• Kullanıcı bir numara girecektir. Asla 10 veya daha yukarı birşeye girmeyeceklerini varsayalım.
• Kullanıcı numarayı bir noktaya yazmalıdır, ancak programın okuduğu yöntem önemli değildir. Bir metin dosyasını okumak vb. Gibi stdin ile olabilir, ancak kullanıcının klavyesindeki 9 düğmesine (örneğin) bir noktada basması gerekir.
• Büyük / küçük harfe duyarlı değildir (yani, "bir", "Bir", "oNe", "OnE", vb. Kabul edilebilir)
• HTTP / etc isteklerine izin verilir, ancak sunucu tarafından yürütülen herhangi bir kod, son kodunuzun bayt sayısına göre sayılır (örneğin, eğer bir C ++ programım bir HTTP isteğinde bulunduysa, HTTP isteğinde kullanılan PHP kodu sayılır) )
• Derleyebilecek ve çalışabilecek her şey kabul edilebilir

• Bu yarışma 27 Haziran 2014 tarihinde sona ermiştir .
• Bu bir kod golf , bu yüzden en kısa kod kazanır.

Bash (bsdgames ile), 9

number -l

Standart girdiden okur.

Bunun için neden bir yardımcı program olduğunu bilmiyorum ama her neyse.

Python 2, 64

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

Bu, dizgenin biraz boşlukla göründüğü şeydir (dikey olarak okumayı deneyin):

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

Aşağıdaki açıklamalarda açıklandığı gibi, [input()::9]verilen endekste başlar ve sonraki her dokuzuncu karakteri seçer.

Ortak Lisp - 22 bayt

İşte genel bir tane (sadece bir tanesi için değil):

(format nil"~R"(read))

Ah, sıralılar istersiniz (ilk, ikinci, ... üç yüzüncü ...)? Tamam!

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

BASH 51

Böylece başka bir fikrimi ikinci fikrimi ve diğerlerinden biraz yardım alarak yaptım:

set one two three four five six seven eight nine

$X

'X' istediğiniz sayıdır.

BASH 48 (67)

67 \nsatır sonları ile

Bu tamamen sayılır mı emin değilim, çünkü bir dosyadan okuyor, fakat:

sed -n Xp a

Burada "X" giriş ve nerede abir dosya:

one
two
three
four
five
six
seven
eight
nine

Dosya 36 karakter ve bash komutu 13'tür.

Nasıl çalışır:

Dosyadaki her satır 1'den başlayarak numaralandırılır. Yani 'bir' 1. satırda, 'iki' 2. sıradadır. Komut, sed -n 'Xp' a"Lütfen" a "dosyasının" X "satırında listelenenleri yazdırın" sedifadesi bir Unix akış düzenleyicisidir. -nanlamına gelir sessiz olmak, ya da sadece esasen her şeyi göz ardı etmek. Xp'X' satırında olanı yazdırmak anlamına gelir.

C # - 127 (86/46)

Sadece çalıştırılabilir kısmı alırsanız ...

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

ve eğer HourOfDaySistem ad alanının bir parçası olsaydı, 46 karaktere ihtiyacınız olacaktı. Ne yazık ki o System.DirectoryServices.ActiveDirectoryda öyle yapar ki 86 ... diğer gürültü onu mahveder.

Bu komut satırından derlenebilir ve çalıştırılabilir (127 karakter):

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

cg2.cs adlı bir dosyaya kaydedilmişse

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

Bu nasıl çalışıyor?

HourOfDay bir enum türüdür böylece sihirli sabitler yerine isimleri kullanabiliriz. Enum türlerinde , değerin adını veren bir ToString () uygulaması bulunur . Bir numaralamaya int atabilirsiniz. Console.Read () bir tamsayı olarak gösterilen giriş akışından bir karakter okur. '1' yazarak 49 , alt çıkarma 48 'i 1, alçı / kutu HourOfDay' One 'döndürür.

Bu aynı hilenin Powershell versiyonuna bir göz atın

Befunge 98, 116 105 103 bayt

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

Bunun için Befunge yapılmadı ...

Açıklama:

&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, fakir bir erkek sıkıştırma aracı olabilir (ancak bunu konsolda denemek istiyorsanız, bir kerede gördüğünüz biçimlendirilmiş metinden kopyalayamazsınız. 'Düzenle'ye gidin ve kaynak panelden kopyalayın)

Markdown editörü bu cevaptaki bazı karakterlerden hoşlanmıyor: bazı karakterler kaydedilirken kayboluyor. Yine de, bunun bir editör sorunu olduğunu düşünüyorum, benim değil. Kayıp karakterler 8 bitlik unicode karakterlerle tamamen geçerlidir.
(Ya da ben yanlışım, eğer bu konu zaten metada tartışıldıysa, bana haber verin) İşte rahatsız edici karakterlerden kaçan sürüm, her sıra \ xNN'nin 1 sayması gerekir

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

Basit bir test

Firefox konsolunda:

[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)[-$_]

Seçenekle -p(+1 byte) çalıştırılır , örneğin:

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

STDIN'de giriş bekleniyor ve çıkış STDOUT'a yazılıyor.

Kod sadece bir dizi oluşturur ve doğru elemanı seçer. Seçenek -p, giriş satırını okumaya özen gösterir $_ve sonucu yazdırır $_.

Varyasyonlar:

• Sondaki yeni satırla (+3):

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

  veya (aynı bayt sayısı):

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

Güncelleme:

• Bunun yerine çıplak kelimeler kullanmak qw[...](teşekkürler Zaid).

• Negatif endeks byte tasarrufu sağlar (teşekkürler aragaer).

Oracle SQL - 46

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

gösteri

Bu standart bir boşluk içerir , kabul ediyorum, ancak SQL Golfscript'ten daha kısa; Karşı koyamadım!

Oracle'ın datetime format modellerini kullanarak (ab) ile çalışır . TO_DATE(n, 'j')Sayıyı bir Jülyen gününe dönüştürür , 1 Ocak 4712'den beri gün sayısı. TO_CHAR(<date>, 'jsp')Bunu tekrar tamsayıya dönüştürür (bir string olarak). spBir olan biçim elemanı eki numarasını büyüler. Bu aslında pek çok sayıyla çalışacaktır.

Bu &1, yalnızca kabul eden istemcilerle, örneğin SQL * Plus ile çalışacak bir ikame değişkenidir.

CJam, 45 43 bayt

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

Bazı karakterler yazdırılamadığından, yukarıdakiler ^ ve M kodlarını kullanır.

9 baytın maliyeti karşılığında, yazdırılamayan karakterlerden kaçınılabilir:

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

Çevrimiçi deneyin.

Nasıl çalışır

" 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=

Örnek

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

GolfScript, 51 bayt

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

Basit bir arama tablosu. Giriş değerlendirilir ( ~), değerlerin bir dizisi oluşturulur ve dizin bulunur.

Burada dene

Perl, 60 bayt

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

-pAnahtarı gerektirir (iki bayt).

Örnek

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

Nasıl çalışır

• -pSTDIN'den okur ve sonucu kaydeder $_.

• =~/.[a-z]*/g bir önceki harfleri bir (büyük harf) harften sonra onu herhangi bir sayıda küçük harften ayırır.

• (…) alt dizileri bir diziye toplar.

• [$_] kullanıcı girişine karşılık gelen alt dizeyi alır.

• $_=…sonucu kaydeder $_.

• -pdeğerini yazdırır $_.

DOS Toplu İş - 162 Karakter (satır sonları dahil)

Bu cevap @ grc'nin Python cevabından ilham almıştı, fakat aklımda benzer bir şey olsa da.

@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

Kullanımı:

[Dosya adı] [sayı]

Örneğin, kod speak.bat adlı bir dosyadaysa ve "beş" sayısını görmek istiyorsanız, şu şekilde çalıştırırsınız:

speak 5

Ayrıca, çıktı soldan sağa değil, yukarıdan aşağıya! Yani yerine

beş

göreceksin

f
ben
v
e

Bash + coreutils, 64

Rekabetçi olmayan sıkıştırma kavramı

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

Buradaki egzotik karakterlerin bazıları iyi sonuç vermeyebilir, bu nedenle bu senaryo, taban temsili 64 ile yeniden oluşturulabilir:

base64 -d <<< eHhkIC1wPDw8VOCLUIJu4PWWDzrgc8B+rkDjEoBDTnx0ciAwLTlhLWQgXFxuZy1pbm9yLXh8c2VkIC1uICQxcA==

Örnek çıktı

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

açıklama

Dize one two three four five six seven eight ninesadece harfleri efghinorstuvwxve boşluk ayıracı - toplamda 15 karakter değerini içerdiğini gördüm. Böylece her karakter potansiyel olarak 4 bit veya 1 bayt başına 2 karakter olarak gösterilebilir. Her bir baytı iki onaltılık basamağa bölmenin kolay bir yolu olarak bir baytın onaltılık gösterimini kullanabiliriz. Daha sonra altıgen rakamları tekrar kullanmamızı istediğimiz harflere dönüştürebiliriz tr. Şans bu ki, rstuvwxböylece olarak ifade edilebilir, ardışık olan r-xiçin tr. Kodlama şekilde düzenlenir eve folduğu gibi bırakılır, ve kullanabilmesi için, ayrılmış kelimeler satır sonu olduğu sedihtiyacımız sadece satır ouptut için.

Bu kod çözme işlemi makul miktarda fazladan alan kullanmakla sona erer, bu nedenle bu cevabı kabuk-senaryo tarzı bir cevap olarak rekabetçi yapmaz, ancak diğer dillerde yararlı bir kavram olabilir.

(saf) Bash, 64

Geçerli girdi olduğu varsayılarak girdiyi ilk argüman olarak alır.

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

Bir dizi oluşturur v, ardından girdide belirtilen öğeye erişir. Diziler sıfır dizinli olduğundan, yer tutucu olarak 0'ınci bir öğeyi eklemek zorunda kaldım. Alternatif olarak (bunu belirtmek için thnx @DennisWilliamson):

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

Python 2.x - 65 64

@Grc'nin cevabı kadar iyi değil ama kesinlikle daha okunaklı :-)

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

Flornquake sayesinde bir daha az karakter

'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'));}

Ben ikili ve dönüştürmek olarak yorumlar, böylece burada uzunluk dikkatlice tasarlanmıştır olduğunu ondalık için. Sadece 7 karakterde, kazanan olduğuma eminim!

bash diyor ki (OS X): 3 8

"Amacınız 1-9 arasında bir sayıyı temsil ettiği kelimeye dönüştürmektir"

Son kontrol ettiğimde, konuşulan kelimeler aynı zamanda kelimelerdir. Önceki deneme (giriş kabul etmiyor)

say 4

Düzenle, girişi okuyabilmeli:

say|read

Herhangi bir sayı yazın ve kelime çıkar. Bitiş tarihinin bittiğini biliyorum, ancak bence yarışmayı kazanmalıydım.

Örnek ses dosyası: four.aiff

VBScript 98 80 75

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

J - 68 veya 60 57 veya 53 bayt

Etkileşimli sürüm (stdin):

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

İşlev sürümü:

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

Açıklama:

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

".(1!:1)1 bir dize okur ve tamsayıya dönüştürür

Perl 36 (58 bağımsız)

use Number::Spell;say spell_number<>

Veya, ek modüller olmadan:

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

AppleScript'te; 123 karakter.

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

Bu betik, bir iletişim kutusundaki girişi alır. Daha sonra AppleScript'in sonucundaki çıktıyı verir  .

Örnek :

• Giriş: 6
• Çıktı : "six"

İşte daha güzel bir versiyon:

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

Bu sürüm çıktıyı hoş bir iletişim kutusunda görüntüler.

Örnek :

• Giriş: 9
• Çıktı : nine

[Cevap düzenlendi; girdi diyaloğunu biraz geliştirdi; hala 124 karakter. Cevap tekrar düzenlendi; şimdi 1 karakter daha az! ]

Powershell - 91 74

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

Enum ve ToObject çağrısını kaldırmak için nasıl kullanılacağını öğrendim:

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

Bu nasıl çalışıyor?

HourOfDay bir enum türüdür, böylece sihirli sabitler yerine isimleri kullanabiliriz. Enum türlerinde, sabit değerin adını veren bir ToString () uygulaması bulunur. Bir numaralamaya int atabilirsiniz. Console.Read () bir tamsayı olarak gösterilen giriş akışından bir karakter okur. '1' yazdığınızda 49, alt çıktının 48 olması 1 olur, 'One' döndürmek için HourOfDay yazılır.

Çünkü powershell, çıktı akışına yazılan tüm nesneler üzerinde bir ToString yapıyor ve bunu çalıştırılabilir hale getirmek için kabartmaya ihtiyaç duymuyor, buna powershell'den başka ihtiyaç duyulan ...

CJam - 50

Bu, HTTP isteklerini kullanan sade bir ASCII çözümüdür (buna soruyla izin verilir):

"aj21.com/"r+g

Sunucuda, her biri karşılık gelen sözcüğü içeren 1, 2, ..., 9 adında 9 düz metin dosyası var.

Toplam boyut: 14 + 3 ("bir") + 3 ("iki") + 5 + 4 + 4 + 3 + 5 + 5 + 4 = 50.
Daha kısa bir alan kullanılarak daha fazla golf oynanabilir.

Çevrimiçi tercüman HTTP isteklerini desteklemediğinden, programın java tercümanı kullanılarak çalıştırılması gerekir .

Toplu iş - 86

Diğer toplu cevaplardan çok daha kısa ve aslında şaşırtıcı bir şekilde rekabetçi.

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

Olarak kullanılır filename.bat numberve çıktı, doğru sayının adını taşıyan bir dosya şeklindedir.

Ruby 64

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

BASH 9

utanmaz Linux- kuzencoicane'ın cevabının kopyası

spd-say 1

biri konuşuyor

GolfScript, 50 bayt

Quincunx'in 51 bayt bağımsız GolfScript çözümünü yenip yenemeyeceğimi görmek istedim . Yeterli numaralarla, evet yapabilirim - bir byte eder.

Kullandığım numaralardan biri, yazdırılabilir ASCII aralığının dışındaki baytların kullanılması olduğundan, ortaya çıkan program doğrudan buraya yapıştırılamaz. Bunun yerine, onaltılık bir dökümünü veriyorum; Unixish sistemlerinde bulunan kullanıcılar xxd -r, gerçek 50 baytlık GolfScript programını hex dökümü üzerinden yeniden yapılandırmak için kullanabilirler :

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                                     }%

Bu programı oluşturmak için kullanılan temel numara basittir: Quincunx kodunun çoğunu oluşturan uzun dize değişmezini c, karakter değerlerinden 99 çıkartarak (harfin ASCII kodu ) karakter değerlerinden çıkartarak elde ederim , elde edilen değerleri temel 22'deki sayı olarak yorumlarım. (harfleri kodlamak için yeterli x) ve daha sonra programımın ilk yarısının çoğunu oluşturan yazdırılamaz bayt dizisini üretmek için taban 255'teki sonuç sayısını yeniden kodlayın. Ardından programın geri kalanı bu işlemi tersine çevirir ve ipin yazdırılabilir bir şey haline gelmesini sağlar.

(Sayı adında gerçekte bulunan en düşük harf olduğundan e, bayt dizesini 101'i ASCII kodlarından çıkartarak ve 20 tabanını kullanarak daha da kısaltabilirdim. Ancak 101'i çıkartmak, mektubu oyeni bir satırla eşleştirirdi. sınırlayıcı olarak kullanıyorum çünkü nGolfScript'te yerleşik sabit olarak elverişlidir. Etrafta çalışmak bana daha düşük bir taban kullanmanın tasarruf edeceği bir bayttan daha pahalıya mal oldu. msayı isimlerinde uygun bir şekilde bulunmayanlar.)

İşte programın bir de-golfed versiyonu:

~       # 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