Bulmaca

Lisedeyken duyduğum küçük bir bilmece şöyle bir şey oldu ...

• Soru soran kişi benden ona bir numara vermemi isterdi;
• Numarayı duyduğunda, soru soran kişi, sonunda 4 sayısına ulaşana kadar (bu noktada sihirle bitirirdi ) tekrar tekrar (örneğin, on'un üç olduğunu söyleyebilir ) bir tür dönüşüm gerçekleştirirdi .
• Ne olursa olsun, herhangi bir sayı sonunda dörde dönüştürülebilir gibi görünüyor.

Amaç, dönüşüm işlevini anlamaya çalışmak ve ardından bu bulmacayı kendiniz güvenilir bir şekilde denetleyebilmekti.

Çözüm

Herhangi bir adımdaki dönüştürme işlevi,

• Söz konusu numarayı alın,
• Bir kısa çizgiyi veya boşlukları veya "ve" yi göz ardı ederek İngilizce kelime temsilindeki harflerin sayısını sayın (ör. "On" içinde 3 harf, "otuz dört" içinde 10 harf, "yüz kırk üç" içinde 20 harf vardır).
• Bu sayıda harfi döndür.

Şimdiye kadar test etmek istediğim tüm sayılar için bu 4'e yakınsıyor. "Dört" de dört harf içerdiğinden, burada sonsuz bir döngü olacaktır; bunun yerine sırayı sona erdirmek için geleneksel olarak sihir olarak anılır .

Meydan okuma

Zorluğunuz, kullanıcıdan bir sayı okuyacak ve ardından "dört sihir" olana kadar dönüşüm işlevinin tekrar tekrar uygulandığını gösteren satırlar yazdıracak bir kod parçası oluşturmaktır.

Özellikle:

1. Çözümler kendi başlarına eksiksiz programlar olmalıdır. Girişte bir sayı faktörünü alan işlevler olamazlar.
2. Giriş, standart girişten okunmalıdır. ("Echo" dan borulama veya giriş yeniden yönlendirme kullanmak iyidir, çünkü bu da stdin'den gelir)
3. Giriş sayısal biçimde olmalıdır.
4. Dönüşüm işlevinin her uygulaması için, bir satır yazdırılmalıdır: a is b.burada a ve b, dönüşümdeki sayıların sayısal biçimleridir.
5. Tam duruşlar (dönemler) GEREKLİDİR!
6. Son satırda doğal olarak, demeli 4 is magic..
7. Kod, 0'dan 99'a kadar tüm sayılar için doğru çıktı üretmelidir .

Örnekler:

> 4
4 is magic.

> 12
12 is 6.
6 is 3.
3 is 5.
5 is 4.
4 is magic.

> 42
42 is 8.
8 is 5.
5 is 4.
4 is magic.

> 0
0 is 4.
4 is magic.

> 99
99 is 10.
10 is 3.
3 is 5.
5 is 4.
4 is magic.

Kazanan, kaynak kodu karakter sayısına göre en kısa başvurudur ve bu da doğru .

BONUS

Ayrıca, dönüştürme işlevinin her uygulamasında sayılar için İNGİLİZCE İSİMLERİNİ yazdıran kodun bir sürümünü de yazmayı deneyebilirsiniz. Orijinal girdi hala sayısaldır, ancak çıktı satırları sayının kelime biçiminde olmalıdır.

(Kodunuzla şekil çizmek için çift bonus)

(DÜZENLE) Bazı açıklamalar:

1. Sözcüğün tüm uygulanabilir durumlarda her iki tarafta görünmesini istiyorum, örneğin Nine is four. Four is magic.
2. Yine de büyük harf kullanımı umrumda değil. Ve kelime jetonlarını nasıl ayırdığınız umurumda değil, ancak birbirlerinden ayrılmaları gerekir: ninety-ninetamam, ninety ninetamam, ninetyninetamam değil.

Bunları, meydan okumayla ilgili olarak bonus yarışması için ayrı bir kategori olarak düşünüyorum, bu nedenle, eğer bunun için giderseniz, kodunuzun sayısal versiyondan daha uzun olması konusunda endişelenmeyin.

Her sürüm için bir çözüm göndermekten çekinmeyin.

GolfScript - 101 96 93 92 91 90 94 86 bayt

90 → 94: 10'un katları için sabit çıktı
94 → 86: Yeniden yapılandırılmış kod. Basılamayan karakterleri kaldırmak için 100 tabanını kullanma.
86 → 85: Dizeye daha kısa kullanım.

{n+~."+#,#6$DWOXB79Bd")base`1/10/~{~2${~1$+}%(;+~}%++=" is "\".
"1$4$4-}do;;;"magic."

Perl, yaklaşık 147 karakter

Platinum Azure çözümüne gevşek bir şekilde dayalı:

               chop
              ($_.=
              <>);@
             u="433
            5443554
           366  887
          798   866
         555    766
        "=~     /\d
       /gx      ;#4
      sub       r{4
     -$_        ?$_
    <20         ?$u
   [$_          ]:(
  $'?           $u[
 $']            :0)
+$u[18+$&]:magic}print"
$_ is ",$_=r(),'.'while
                /\d
                /x;
                444

Common Lisp 157 Karakter

Yeni, daha uyumlu sürüm, artık standart girdiyi okuyor ve boşlukları ve kısa çizgileri yok sayıyor:

(labels((g (x)(if(= x 4)(princ"4 is magic.")(let((n(length(remove-if(lambda(x)(find x" -"))(format nil"~r"x)))))(format t"~a is ~a.~%"x n)(g n)))))(g(read)))

İnsan tarafından okunabilir biçimde:

 (labels ((g (x)
           (if (= x 4)
            (princ "4 is magic.")
            (let ((n (length (remove-if (lambda(x) (find x " -"))
                                        (format nil "~r" x)))))
               (format t"~a is ~a.~%" x n)
               (g n)))))
    (g (read)))

Ve bazı test çalışmaları:

>24
24 is 10.
10 is 3.
3 is 5.
5 is 4.
4 is magic.

>23152436
23152436 is 64.
64 is 9.
9 is 4.
4 is magic.

Ve bonus versiyonu, 165 karakter:

 (labels((g(x)(if(= x 4)(princ"four is magic.")(let*((f(format nil"~r"x))(n(length(remove-if(lambda(x)(find x" -"))f))))(format t"~a is ~r.~%"f n)(g n)))))(g(read)))

Verme

>24
twenty-four is ten.
ten is three.
three is five.
five is four.
four is magic.

>234235
two hundred thirty-four thousand two hundred thirty-five is forty-eight.
forty-eight is ten.
ten is three.
three is five.
five is four.
four is magic.

Python 2.x, 144 150 154 166 karakter

Bu, sayıyı onlar ve birlere ayırır ve özetler. Sözde üçlü operatörün istenmeyen özellik ise döndürülür 0 Burada istismar olmasıdır.a and b or ccb

n=input()
x=0x4d2d0f47815890bd2
while n-4:p=n<20and x/10**n%10or 44378/4**(n/10-2)%4+x/10**(n%10)%10+4;print n,"is %d."%p;n=p
print"4 is magic."

Önceki saf versiyon (150 karakter). Sadece tüm uzunlukları bir tamsayı olarak kodlayın.

n=input()
while n-4:p=3+int('1yrof7i9b1lsi207bozyzg2m7sclycst0zsczde5oks6zt8pedmnup5omwfx56b29',36)/10**n%10;print n,"is %d."%p;n=p
print"4 is magic."

C - sayı kelimelerle

445 431 427 421 399 386 371 359 ^* 356 354 ^† 348 347 karakter

Bu kadar. Bunu daha kısaltabileceğimi sanmıyorum.

Tüm yeni satırlar okunabilirlik içindir ve kaldırılabilir:

i;P(x){char*p=",one,two,three,four,five,six,sM,eight,nine,tL,elM,twelve,NP,4P,
fifP,6P,7P,8O,9P,twLQ,NQ,forQ,fifQ,6Q,7Q,8y,9Q,en,evL,thir,eL,tO,ty, is ,.\n,
4RmagicS,zero,";while(x--)if(*++p-44&&!x++)*p>95|*p<48?putchar(*p),++i:P(*p-48);
}main(c){for(scanf("%d",&c);c+(i=-4);P(34),P(c=i),P(35))P(c?c>19?P(c/10+18),
(c%=10)&&putchar(45):0,c:37);P(36);}

Aşağıda, bir şekilde küçültülmemiş, ancak yine de okunması oldukça zor. Daha okunaklı bir sürüm için aşağıya bakın.

i;
P(x){
    char*p=",one,two,three,four,five,six,sM,eight,nine,tL,elM,twelve,NP,4P,fifP,6P,7P,8O,9P,twLQ,NQ,forQ,fifQ,6Q,7Q,8y,9Q,en,evL,thir,eL,tO,ty, is ,.\n,4RmagicS,zero,";
    while(x--)
        if(*++p-44&&!x++)
            *p>95|*p<48?putchar(*p),++i:P(*p-48);
}
main(c){
    for(scanf("%d",&c);c+(i=-4);P(34),P(c=i),P(35))
        P(c?
            c>19?
                P(c/10+18),
                (c%=10)&&
                    putchar(45)
            :0,
            c
        :37);
    P(36);
}

Genişletilmiş ve yorumlanmış:

int count; /* type int is assumed in the minified version */

void print(int index){ /* the minified version assumes a return type of int, but it's ignored */
    /* see explanation of this string after code */
    char *word =
        /* 1 - 9 */
        ",one,two,three,four,five,six,sM,eight,nine,"
        /* 10 - 19 */
        "tL,elM,twelve,NP,4P,fifP,6P,7P,8O,9P,"
        /* 20 - 90, by tens */
        "twLQ,NQ,forQ,fifQ,6Q,7Q,8y,9Q,"
        /* lookup table */
        "en,evL,thir,eL,tO,ty, is ,.\n,4RmagicS,zero,";

    while(index >= 0){
        if(*word == ',')
            index--;
        else if(index == 0) /* we found the right word */
            if(*word >= '0' && *word < 'a') /* a compression marker */
                print(*word - '0'/*convert to a number*/);
            else{
                putchar(*word); /* write the letter to the output */
                ++count;
            }
        ++word;
    }
}
int main(int argc, char **argv){ /* see note about this after code */
    scanf("%d", &argc); /* parse user input to an integer */

    while(argc != 4){
        count = 0;
        if(argc == 0)
            print(37/*index of "zero"*/);
        else{
            if(argc > 19){
                print(argc / 10/*high digit*/ + 20/*offset of "twenty"*/ - 2/*20 / 10*/);
                argc %= 10; /* get low digit */

                if(argc != 0) /* we need a hyphen before the low digit */
                    putchar('-');
            }
            print(argc/* if 0, then nothing is printed or counted */);
        }
        argc = count;
        print(34/*" is "*/);
        print(argc); /* print count as word */
        print(35/*".\n"*/);
    }
    print(36/*"four is magic.\n"*/);
}

Başına yakın kodlanmış dize hakkında

Sayıların isimleri çok basit bir şema kullanılarak sıkıştırılmıştır. Sık kullanılan alt dizeler, ad dizisine tek karakterli dizinlerle değiştirilir. Ekstra ad girişlerinden oluşan bir "arama tablosu", ilk kümede tamamen kullanılmayan alt dizeler için sona eklenir. Aramalar özyinelemelidir: girişler diğer girişlere başvurabilir.

Örneğin, 11'in sıkıştırılmış adı elM. print()Fonksiyon karakterleri çıktılar eve l(küçük harf 'L', sayısını değil '1') kelimesi kelimesine, ama sonra bulduğu Mo 29 girişi (ASCII 'M' - ASCII '0') endeksi ile kendisini çağıran böylece, arama tablosuna. Bu dize evLçıktı verir eve vdaha sonra arama tablosundaki 28. girdinin dizini ile kendini yeniden çağırır, bu da enaynı çıktıdır ve çıktıdır. Çünkü yararlıdır ende kullanılır eLiçin een(sonrası kullanılan eightolarak eighteen), içinde kullanıldığı tOiçin teen(her için kullanılan -teenisim).

Bu şema, sayı adlarının oldukça önemli bir şekilde sıkıştırılmasına neden olurken, sıkıştırmanın açılması için yalnızca az miktarda kod gerektirir.

Dizenin başındaki ve sonundaki virgüller, bu dizede alt dizelerin bulunmasının basit bir yolunu açıklar. Buraya iki karakter eklemek, daha sonra daha fazla karakter kaydeder.

Suistimali hakkında main()

argvyok sayılır (ve bu nedenle sıkıştırılmış sürümde bildirilmez), argc'nin değeri yok sayılır, ancak depolama mevcut sayıyı tutmak için yeniden kullanılır. Bu beni fazladan bir değişken bildirmekten kurtarıyor.

Eksikliği hakkında #include

Bazıları ihmal etmenin #include <stdio.h>hile yapmaktan şikayet edecek . Hiç de değil. Verilen, bildiğim herhangi bir C derleyicisinde (uyarılarla da olsa) doğru bir şekilde derlenecek tamamen yasal bir C programıdır. Standart işlevler için prototiplerden yoksun olan derleyici, bunların geri dönen cdecl işlevleri olduklarını varsayacak intve hangi argümanları geçireceğinizi bildiğinize güvenecektir. Bu programda dönüş değerleri göz ardı edilir ve hepsi cdecl ("C" çağırma kuralı) fonksiyonlarıdır ve biz gerçekten hangi argümanların geçirileceğini biliyoruz.

Çıktı

Çıktı beklendiği gibidir:

0
sıfır dörttür.
dört sihirdir.

1
biri üç.
üç beştir.
beş, dörttür.
dört sihirdir.

4
dört sihirdir.

20
yirmi altıdır.
altı üçtür.
üç beştir.
beş, dörttür.
dört sihirdir.

21
yirmi bir dokuzdur.
dokuz dörttür.
dört sihirdir.

_{^* Önceki sürüm, spesifikasyonun iki kısmındaki işareti kaçırdı: sıfırı ele almadı ve stdin yerine komut satırında girdi aldı. Sıfırların işlenmesi karakterler ekledi, ancak komut satırı argümanları yerine stdin kullanarak ve birkaç başka optimizasyon aynı sayıda karakteri kaydederek bir yıkamaya neden oldu.}

_{^† Sayı kelimesinin "eşittir" ifadesinin her iki tarafına da basılması gerektiğini netleştirmek için gereksinimler değiştirildi. Bu yeni sürüm, bu gereksinimi karşılar ve gerekli ekstra boyutu hesaba katmak için (daha fazla) birkaç optimizasyon uygular.}

J, 107 112 karakter

'4 is magic.',~}:('.',~":@{.,' is ',":@{:)"1]2&{.\.
(]{&(#.100 4$,#:3 u:ucp'䌵䐵吶梇禈榛ꪛ멩鮪鮺墊馊꥘誙誩墊馊ꥺ겻곋榛ꪛ멩鮪鮺'))^:a:

(Yalnızca okunabilirlik için yeni satır)

Kullanım ve çıktı:

    '4 is magic.',~}:('.',~":@{.,' is ',":@{:)"1]2&{.\.(]{&(#.100 4$,#:3 u:ucp'䌵䐵吶梇禈榛ꪛ멩鮪鮺墊馊꥘誙誩墊馊ꥺ겻곋榛ꪛ멩鮪鮺'))^:a:12
12 is 6.    
6 is 3.     
3 is 5.     
5 is 4.     
4 is magic. 

T-SQL, 413 451 499 karakter

CREATE FUNCTION d(@N int) RETURNS int AS BEGIN
Declare @l char(50), @s char(50)
Select @l='0066555766',@s='03354435543668877987'
if @N<20 return 0+substring(@s,@N+1,1) return 0+substring(@l,(@N/10)+1,1) + 0+(substring(@s,@N%10+1,1))END
GO
CREATE proc M(@x int) as BEGIN
WITH r(p,n)AS(SELECT p=@x,n=dbo.d(@x) UNION ALL SELECT p=n,n=dbo.d(n) FROM r where n<>4)Select p,'is',n,'.' from r print '4 is magic.'END

(Cidden bunu yapmanızı önermediğimden değil ... gerçekten sadece bir CTE yazmak istedim)

Kullanmak:

M 95

İadeler

p                n
----------- ---- -----------
95          is   10.
10          is   3.
3           is   5.
5           is   4.
4 is magic.

(Demirbaş ile) Java 308 290 286 282 280 karakter

class A{public static void main(String[]a){int i=4,j=0;for(;;)System.out.printf("%d is %s.%n",i=i==4?new java.util.Scanner(System.in).nextInt():j,i!=4?j="43354435543668877988699;::9;;:699;::9;;:588:998::9588:998::9588:998::97::<;;:<<;699;::9;;:699;::9;;:".charAt(i)-48:"magic");}}

Eminim Groovy bunun çoğundan kurtulacaktır.

Açıklama ve biçimlendirme (tüm yorumlar, yeni satırlar ve baştaki / sondaki boşluklar sayılır):

Oldukça yalındır ama

//boilerplate
class A{
   public static void main(String[]a){
      //i is current/left number, j right/next number.  i=4 signals to start
      //by reading input
      int i=4,j=0;
      for(;;)
         //print in the form "<left> is <right>."
         System.out.printf(
            "%d is %s.%n",
            i=i==4?
               //<left>: if i is 4 <left> will be a new starting number
               new java.util.Scanner(System.in).nextInt():
               //otherwise it's the next val
               j,
            i!=4?
               //use string to map number to its length (:;< come after 9 in ASCII)
               //48 is value of '0'.  store in j for next iteration
               j="43354435543668877988699;::9;;:699;::9;;:588:998::9588:998::9588:998::97::<;;:<<;699;::9;;:699;::9;;:".charAt(i)-48:
               //i==4 is special case for right; print "magic"
               "magic");
   }
}

Düzenleme: Artık onaltılık kullanma, bu daha az tuş vuruşu demektir

Windows PowerShell: 152 153 184 bayt

önceki çözüme dayalı olarak, diğer çözümlerden daha fazla etkilenerek

$o="03354435543668877988"
for($input|sv b;($a=$b)-4){if(!($b=$o[$a])){$b=$o[$a%10]-48+"66555766"[($a-$a%10)/10-2]}$b-=48-4*!$a
"$a is $b."}'4 is magic.'

C, 158 karakter

main(n,c){char*d="03354435543668877988";for(scanf("%d",&n);n-4;n=c)printf("%d is %d.\n",n,c=n?n<19?d[n]-48:d[n%10]-"_,**+++)**"[n/10]:4);puts("4 is magic.");}

(aslında Vlad'ın Python koduna dayanıyordu, Tom Sirgedas'ın C ++ çözümünden birkaç karakter daha sıkıştırmak için bir numara ödünç aldı)

genişletilmiş sürüm:

main(n, c) {
    char *d = "03354435543668877988";
    for (scanf("%d",&n); n-4; n = c)
        printf("%d is %d.\n", n, c = n ? n<19 ? d[n]-48 : d[n%10] - "_,**+++)**"[n/10]  : 4);
    puts("4 is magic.");
}

Python, 129 133 137 148 karakter

Bir ısınma olarak, işte ilk sürümüm (önceki en iyi Python'a göre birkaç karakter geliştiriyor).

PS. Birkaç redaksiyondan sonra şimdi yaklaşık yirmi karakter daha kısadır:

n=input()
while n-4:p=(922148248>>n/10*3&7)+(632179416>>n%10*3&7)+(737280>>n&1)+4*(n<1);print n,'is %d.'%p;n=p
print'4 is magic.'

C #: 210 Karakter.

Ezilmiş:

using C=System.Console;class B{static void Main(){int
x=0,y=int.Parse(C.ReadLine());while(x!=4)C.Write((x=y)+" is {0}.\n",x==4?"magic":""+(y=x==0?4:"03354435543668877988"[x<20?x:x%10]+"0066555766"[x/10]-96));}}

Genişletilmiş:

using C=System.Console;
class B
{
    static void Main()
    {
        int x=0,y=int.Parse(C.ReadLine());
        while(x!=4)
            C.Write((x=y)+" is {0}.\n",
                x==4?
                     "magic":
                     ""+(y= x==0?
                                4:
                                "03354435543668877988"[x<20?x:x%10]+
                                "0066555766"[x/10]-96)
                   );
    }
}

Bu yaklaşımın kullandığı püf noktaları:

• Numarada görünen rakamlara göre numara adı uzunlukları için bir arama tablosu oluşturun.
• Bir dizede karakter dizisi aramasını ve sayısal dizi yerine karakter aritmetiğini kullanın.
• Sınıf adı takma adını kısaltmak Console.için kullanınC.
• ?:Bunun yerine koşullu (üçlü) operatörü ( ) kullanın if/else.
• Kullanım \nile Writeçıkış kodu yerineWriteLine
• C # 'ın tanımlı bir değerlendirme sırasına sahip olduğu gerçeğini kullanarak Writeİşlev çağrısı
• Ekstra ifadeleri ve dolayısıyla fazladan kaşlı ayraçları ortadan kaldırmak için atama ifadelerini kullanın

Perl: 148 karakter

(Perl: 233 181 212 206 200 199 198 185 179 149 148 karakter)

• İstisnalar karması birim dizisine taşındı. Bu benim çok sayıda karakteri kesebilmeme neden oldu :-)
• mobrule kötü bir hataya işaret etti. Hızlı düzeltme 31 karakter ekler, ah!
• Sıfır özel durum için yeniden düzenlendi, hafif golf de yapıldı.
• Diziye depolamak yerine tek kullanımlık doğrudan liste erişimi? Tabi lan!
• Sadece bir kanlı karakter için ÇOK ÇOK REFAKTÖR. Bu gerçekten bir golfçünün hayatıdır. :-(
• Hata! Beyaz boşluk düzeltmesi kolay. 198 şimdi.
• Bazı gereksiz kodlar yeniden düzenlendi.
• İçindeki son dönen anahtar kelime rİçindeki gereksiz, biraz daha kesildi.
• Yorum başına kapsamlı yeniden düzenleme; ne yazık ki sadece 149'a ulaşabildim çünkü hem önceki kodumda hem de yorum yapanların sürümlerinde mevcut olan bir hatayı düzeltmem gerekiyordu.
• Yalancı kelime "sihri" deniyor.

Perl'de mütevazı bir girişimle bu topu yuvarlayalım.

@u=split'','4335443554366887798866555766';$_=<>;chop;print"$_ is ".($_=$_==4?0:$_<20?$u[$_]:($u[$_/10+18]+($_%10&&$u[$_%10]))or magic).".
"while$_

Hileler:

Çok fazla!

JavaScript 1.8 (SpiderMonkey) - 153 Karakter

l='4335443554366887798866555766'.split('')
for(b=readline();(a=+b)-4;print(a,'is '+b+'.'))b=a<20?l[a]:+l[18+a/10|0]+(a%10&&+l[a%10])
print('4 is magic.')

Kullanım: echo 42 | js golf.js

Çıktı:

42 is 8.
8 is 5.
5 is 4.
4 is magic.

Bonus ile - 364 karakter

l='zero one two three four five six seven eight nine ten eleven twelve thirteen fourteen fifteen sixteen seventeen eighteen nineteen twenty thirty fourty fifty sixty seventy eighty ninety'.split(' ')
z=function(a)a<20?l[a]:l[18+a/10|0]+(a%10?' '+l[a%10]:'')
for(b=+readline();(a=b)-4;print(z(a),'is '+z(b)+'.'))b=z(a).replace(' ','').length
print('four is magic.')

Çıktı:

doksan dokuz on eder.
on üçtür.
üç beştir.
beş, dörttür.
dört sihirdir.

Haskell, 224 270 karakter

o="43354435543668877988"
x!i=read[x!!i]
n x|x<20=o!x|0<1="0066555766"!div x 10+o!mod x 10
f x=zipWith(\a b->a++" is "++b++".")l(tail l)where l=map show(takeWhile(/=4)$iterate n x)++["4","magic"]
main=readLn>>=mapM putStrLn.f

Ve biraz daha okunaklı -

ones = [4,3,3,5,4,4,3,5,5,4,3,6,6,8,8,7,7,9,8,8]
tens = [0,0,6,6,5,5,5,7,6,6]

n x = if x < 20 then ones !! x else (tens !! div x 10) + (ones !! mod x 10)

f x = zipWith (\a b -> a ++ " is " ++ b ++ ".") l (tail l)
    where l = map show (takeWhile (/=4) (iterate n x)) ++ ["4", "magic"]
    
main = readLn >>= mapM putStrLn . f

C ++ Stdio sürümü, küçültülmüş: 196 karakter

#include <cstdio>
#define P;printf(
char*o="43354435543668877988";main(int p){scanf("%d",&p)P"%d",p);while(p!=4){p=p<20?o[p]-48:"0366555966"[p/10]-96+o[p%10]P" is %d.\n%d",p,p);}P" is magic.\n");}

C ++ Iostreams sürümü, küçültülmüş: 195 karakter

#include <iostream>
#define O;std::cout<<
char*o="43354435543668877988";main(int p){std::cin>>p;O p;while(p!=4){p=p<20?o[p]-48:"0366555966"[p/10]-96+o[p%10]O" is "<<p<<".\n"<<p;}O" is magic.\n";}

Orijinal, küçültülmemiş: 344 karakter

#include <cstdio>

int ones[] = { 4, 3, 3, 5, 4, 4, 3, 5, 5, 4, 3, 6, 6, 8, 8, 7, 7, 9, 8, 8 };
int tens[] = { 0, 3, 6, 6, 5, 5, 5, 9, 6, 6 };

int n(int n) {
    return n<20 ? ones[n] : tens[n/10] + ones[n%10];
}

int main(int p) {
    scanf("%d", &p);
    while(p!=4) {
        int q = n(p);
        printf("%i is %i\n", p, q);
        p = q;
    }
    printf("%i is magic\n", p);
}

Delphi: 329 karakter

Tek Satır Versiyonu:

program P;{$APPTYPE CONSOLE}uses SysUtils;const S=65;A='EDDFEEDFFEDGGIIHHJII';B='DGGFFFJGG';function Z(X:Byte):Byte;begin if X<20 then Z:=Ord(A[X+1])-S else Z:=(Ord(B[X DIV 10])-S)+Z(X MOD 10)end;var X,Y:Byte;begin Write('> ');ReadLn(X);repeat Y:=Z(X);WriteLn(Format('%d is %d.',[X,Y]));X:=Y;until X=4;WriteLn('4 is magic.');end.

Biçimlendirilmiş:

program P;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  S = 65;
  A = 'EDDFEEDFFEDGGIIHHJII';
  B = 'DGGFFFJGG';

function Z(X:Byte):Byte;
begin
  if X<20
  then Z := Ord(A[X+1])-S
  else Z := (Ord(B[X DIV 10])-S) + Z(X MOD 10);
end;

var
  X,Y: Byte;

begin
  Write('> ');
  ReadLn(X);

  repeat
    Y:=Z(X);
    WriteLn(Format('%d is %d.' , [X,Y]));
    X:=Y;
  until X=4;

  WriteLn('4 is magic.');
end.

Muhtemelen biraz daha sıkmak için yer var ... :-P

C # 314 286 283 274 289 273 252 karakter.

Ezilmiş:

252 

Normal:

using C = System.Console;
class P
{
    static void Main()
    {
        var x = "4335443554366877798866555766";
        int m, o, v = int.Parse(C.ReadLine());
        do {
            C.Write("{0} is {1}.\n", o = v, v == 4 ? (object)"magic" : v = v < 20 ? x[v] - 48 : x[17 + v / 10] - 96 + ((m = v % 10) > 0 ? x[m] : 48));
        } while (o != 4);
        C.ReadLine();
    }
}

Edit Dykam: Oldukça dikkatli eklemeler ve değişiklikler yaptı:

• Bir döküm içine l.ToString () değiştirildi objectarasında string "magic".
• Geçici bir değişken oluşturdu o, böylece döngünün breakdışına çıkabilecektim for, yani bir do-while.
• Atamayı satır içine aldı, oatamayı da yap, vhesaplamayı lfonksiyon argümanlarına eklemeye devam ederek ihtiyacını ortadan kaldır l. Ayrıca ödevini de satır içine aldı m.
• İçinde bir boşluk kaldırıldı int[] x, int[]xaynı zamanda okunaklı.
• Diziyi bir dizi dönüşümüne dönüştürmeye çalıştım, ancak using System.Linqbunu bir iyileştirme yapmak için çok fazlaydı.

Edit 2 Dykam int dizisi bir char dizisi / dizgesine değiştirildi, bunu düzeltmek için uygun aritmik eklendi.

Lua, 176 Karakter

o={[0]=4,3,3,5,4,4,3,5,5,4,3,6,6,8,8,7,7,9,8,8}t={3,6,6,5,5,5,7,6,6}n=0+io.read()while n~=4 do a=o[n]or o[n%10]+t[(n-n%10)/10]print(n.." is "..a..".")n=a end print"4 is magic."

veya

  o={[0]=4,3,3,5,4,4
  ,3,5,5,4,3,6,6,8,8
  ,7,7,9,8,8}t={3,6,
   6,5,5,5,7,6,6}n=
   0+io.read()while
   n ~= 4 do a= o[n
   ]or o[n%10]+t[(n
   -n%10)/10]print(
n.." is "..a.."." )n=a
end print"4 is magic."

C - numaralı kelimeler olmadan

180 175 ^* 172 167 karakter

Tüm yeni satırlar okunabilirlik içindir ve kaldırılabilir:

i;V(x){return"\3#,#6$:WOXB79B"[x/2]/(x%2?1:10)%10;}main(c){for(scanf("%d",&c);
c-4;)i=c,printf("%d is %d.\n",i,c=c?c>19?V(c/10+19)+V(c%10):V(c):4);puts(
"4 is magic.");}

Biraz küçültülmemiş:

i;
V(x){return"\3#,#6$:WOXB79B"[x/2]/(x%2?1:10)%10;}
main(c){
    for(scanf("%d",&c);c-4;)
        i=c,
        printf("%d is %d.\n",i,c=c?c>19?V(c/10+19)+V(c%10):V(c):4);
    puts("4 is magic.");
}

_{^* Önceki sürüm, spesifikasyonun iki kısmındaki işareti kaçırdı: sıfırı ele almadı ve stdin yerine komut satırında girdi aldı. Sıfır eklenen karakterlerin işlenmesi, ancak komut satırı argümanları yerine stdin kullanılması daha da fazla tasarruf sağlayarak net bir tasarruf sağlar.}

perl, 123 122 karakter

STDOUT'a çıktı verme zorunluluğu olmadığını anladım, bu yüzden bunun yerine STDERR'a çıktı verin ve başka bir karakteri devre dışı bırakın.

@u='0335443554366887798866555766'=~/./g;$_+=<>;warn"$_ is ",$_=$_-4?$_<20?$u[$_]||4:$u[chop]+$u[$_+18]:magic,".\n"until/g/

Ve hecelenen sayıları döndüren bir sürüm:

279 278 276 280 karakter

@p=(Thir,Four,Fif,Six,Seven,Eigh,Nine);@n=("",One,Two,Three,Four,Five,@p[3..6],Ten,Eleven,Twelve,map$_.teen,@p);s/u//for@m=map$_.ty,Twen,@p;$n[8].=t;sub n{$n=shift;$n?$n<20?$n[$n]:"$m[$n/10-2] $n[$n%10]":Zero}$p+=<>;warnt$m=n($p)," is ",$_=$p-4?n$p=()=$m=~/\w/g:magic,".\n"until/c/

Spesifikasyonları karşılasa da,% 100 iyi biçimlendirilmemiştir. Sıfırla biten sayılardan sonra fazladan bir boşluk döndürür. Spesifikasyon diyor ki:

"Jetonları nasıl ayırdığınız umurumda değil, ancak birbirlerinden ayrılmaları gerekir"

Bu biraz sinsi olsa da. Daha doğru bir versiyon

282 281 279 283 karakter

@p=(Thir,Four,Fif,Six,Seven,Eigh,Nine);@n=("\x8",One,Two,Three,Four,Five,@p[3..6],Ten,Eleven,Twelve,map$_.teen,@p);s/u//for@m=map$_.ty,Twen,@p;$n[8].=t;sub n{$n=shift;$n?$n<20?$n[$n]:"$m[$n/10-2]-$n[$n%10]":Zero}$p+=<>;warn$m=n($p)," is ",$_=$p-4?n$p=()=$m=~/\w/g:magic,".\n"until/c/

Python:

#!/usr/bin/env python

# Number of letters in each part, we don't count spaces
Decades = ( 0, 3, 6, 6, 6, 5, 5, 7, 6, 6, 0 )
Smalls  = ( 0, 3, 3, 5, 4, 4, 3, 5, 5, 4 )
Teens  =  ( 6, 6, 8, 8, 7, 7, 9, 8, 8 )

def Count(n):
    if n > 10 and n < 20: return Teens[n-11]
    return   Smalls[n % 10 ] + Decades [ n / 10 ]

N = input()

while N-4:
    Cnt = Count(N)
    print "%d is %d" % ( N, Cnt)
    N = Cnt

print "4 is magic"

C ++, 171 karakter (#include atlandı)

void main(){char x,y,*a="03354435543668877988";scanf("%d",&x);for(;x-4;x=y)y=x?x<19?a[x]-48:"_466555766"[x/10]+a[x%10]-96:4,printf("%d is %d.\n",x,y);puts("4 is magic.");}

Ruby, 164 karakter

n=gets.to_i;s="03354435543668877987";if n==0;puts"0 is 4.";else;puts"#{n} is #{n=(n<20)?s[n]-48:"0066555766"[n/10]-48+s[n%10]-48}." until n==4;end;puts"4 is magic."

kodu çözüldü:

n = gets.to_i
s = "03354435543668877987"
if n == 0
  puts "0 is 4."
else
  puts "#{n} is #{n = (n < 20) ? s[n] - 48 : "0066555766"[n / 10] - 48 + s[n % 10] - 48}." until n == 4
end

puts "4 is magic."

Lua 185 190 199

eklenen dönemler, io.read eklendi, son baskıda kaldırıldı ()

 n=io.read();while(n~=4)do m=('43354435543668877988699;::9;;:699;::9;;:588:998::9588:998::9588:998::97::<;;:<<;699;::9;;:699;::9;;:'):sub(n+1):byte()-48;print(n,' is ',m,'.')n=m;end print'4 is magic.'

satır sonlarıyla

 n=io.read()
 while (n~=4) do
    m=('43354435543668877988699;::9;;:699;::9;;:588:998::9588:998::9588:998::97::<;;:<<;699;::9;;:699;::9;;:'):sub(n+1):byte()-48;
    print(n,' is ',m,'.')
    n=m;
 end 
 print'4 is magic.'

PhP Kodu

function get_num_name($num){  
    switch($num){  
        case 1:return 'one';  
    case 2:return 'two';  
    case 3:return 'three';  
    case 4:return 'four';  
    case 5:return 'five';  
    case 6:return 'six';  
    case 7:return 'seven';  
    case 8:return 'eight';  
    case 9:return 'nine';  
    }  
}  

function num_to_words($number, $real_name, $decimal_digit, $decimal_name){  
    $res = '';  
    $real = 0;  
    $decimal = 0;  

    if($number == 0)  
        return 'Zero'.(($real_name == '')?'':' '.$real_name);  
    if($number >= 0){  
        $real = floor($number);  
        $decimal = number_format($number - $real, $decimal_digit, '.', ',');  
    }else{  
        $real = ceil($number) * (-1);  
        $number = abs($number);  
        $decimal = number_format($number - $real, $decimal_digit, '.', ',');  
    }  
    $decimal = substr($decimal, strpos($decimal, '.') +1);  

    $unit_name[1] = 'thousand';  
    $unit_name[2] = 'million';  
    $unit_name[3] = 'billion';  
    $unit_name[4] = 'trillion';  

    $packet = array();    

    $number = strrev($real);  
    $packet = str_split($number,3);  

    for($i=0;$i<count($packet);$i++){  
        $tmp = strrev($packet[$i]);  
        $unit = $unit_name[$i];  
        if((int)$tmp == 0)  
            continue;  
        $tmp_res = '';  
        if(strlen($tmp) >= 2){  
            $tmp_proc = substr($tmp,-2);  
            switch($tmp_proc){  
                case '10':  
                    $tmp_res = 'ten';  
                    break;  
                case '11':  
                    $tmp_res = 'eleven';  
                    break;  
                case '12':  
                    $tmp_res = 'twelve';  
                    break;  
                case '13':  
                    $tmp_res = 'thirteen';  
                    break;  
                case '15':  
                    $tmp_res = 'fifteen';  
                    break;  
                case '20':  
                    $tmp_res = 'twenty';  
                    break;  
                case '30':  
                    $tmp_res = 'thirty';  
                    break;  
                case '40':  
                    $tmp_res = 'forty';  
                    break;  
                case '50':  
                    $tmp_res = 'fifty';  
                    break;  
                case '70':  
                    $tmp_res = 'seventy';  
                    break;  
                case '80':  
                    $tmp_res = 'eighty';  
                    break;  
                default:  
                    $tmp_begin = substr($tmp_proc,0,1);  
                    $tmp_end = substr($tmp_proc,1,1);  

                    if($tmp_begin == '1')  
                        $tmp_res = get_num_name($tmp_end).'teen';  
                    elseif($tmp_begin == '0')  
                        $tmp_res = get_num_name($tmp_end);  
                    elseif($tmp_end == '0')  
                        $tmp_res = get_num_name($tmp_begin).'ty';  
                    else{  
                        if($tmp_begin == '2')  
                            $tmp_res = 'twenty';  
                        elseif($tmp_begin == '3')  
                            $tmp_res = 'thirty';  
                        elseif($tmp_begin == '4')  
                            $tmp_res = 'forty';  
                        elseif($tmp_begin == '5')  
                            $tmp_res = 'fifty';  
                        elseif($tmp_begin == '6')  
                            $tmp_res = 'sixty';  
                        elseif($tmp_begin == '7')  
                            $tmp_res = 'seventy';  
                        elseif($tmp_begin == '8')  
                            $tmp_res = 'eighty';  
                        elseif($tmp_begin == '9')  
                            $tmp_res = 'ninety';  

                        $tmp_res = $tmp_res.' '.get_num_name($tmp_end);  
                    }  
                    break;  
            }  

            if(strlen($tmp) == 3){  
                $tmp_begin = substr($tmp,0,1);  

                $space = '';  
                if(substr($tmp_res,0,1) != ' ' && $tmp_res != '')  
                    $space = ' ';  

                if($tmp_begin != 0){  
                    if($tmp_begin != '0'){  
                        if($tmp_res != '')  
                            $tmp_res = 'and'.$space.$tmp_res;  
                    }  
                    $tmp_res = get_num_name($tmp_begin).' hundred'.$space.$tmp_res;  
                }  
            }  
        }else  
            $tmp_res = get_num_name($tmp);  
        $space = '';  
        if(substr($res,0,1) != ' ' && $res != '')  
            $space = ' ';  
        $res = $tmp_res.' '.$unit.$space.$res;  
    }  

    $space = '';  
    if(substr($res,-1) != ' ' && $res != '')  
        $space = ' ';  

    if($res)  
        $res .= $space.$real_name.(($real > 1 && $real_name != '')?'s':'');  

    if($decimal > 0)  
        $res .= ' '.num_to_words($decimal, '', 0, '').' '.$decimal_name.(($decimal > 1 && $decimal_name != '')?'s':'');  
    return ucfirst($res);  
}  

//////////// test yapmak ////////////////

 $str2num = 12;
    while($str2num!=4){
        $str = num_to_words($str2num, '', 0, '');  
        $str2num = strlen($str)-1;
        echo $str . '=' . $str2num .'<br/>';
        if ($str2num == 4)
            echo 'four is magic';
    }

////// Sonuçlar /////////

Twelve =6
Six =3
Three =5
Five =4
four is magic

Perl - 130 karakter

5.12.1 (130 karakter) ^{121 123 132 136 140}

#        1         2         3         4         5         6         7         8         9        100        11        12        13       14    
#23456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123

@u='4335443554366887798866555766'=~/./g;$_=pop;say"$_ is ",$_=$_-4?$_<20?$u[$_]:$u[$_/10+18]+(($_%=10)&&$u[$_]):magic,"."until/\D/

5.10.1 (134 karakter) ^{125 127 136 140 144}

#        1         2         3         4         5         6         7         8         9        100        11        12        13       14    
#23456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 1234

@u='4335443554366887798866555766'=~/./g;$_=pop;print"$_ is ",$_=$_-4?$_<20?$u[$_]:$u[$_/10+18]+(($_%=10)&&$u[$_]):magic,".\n"until/\D/

Tarihi değiştir:

20100714:2223- mobrule'un dikkatinde değişiklik geri alındı , ancak ($_%10&&$u[$_%10])→ (($_%=10)&&$u[$_]), bu aynı karakter sayısı, ancak birisinin onu iyileştirmenin bir yolunu görmesi durumunda yaptım

20100714:0041- split//,'...'→ '...'=~/./g
20100714:0025- ($_%10&&$u[$_%10])→ $u[$_%10]
20100713:2340- while$_→ until/\D/+ gereksiz parantezleri kaldırdı
20100713:xxxx- $=<>;chop;→ $_=pop;- mobrule nezaketi

Not: Başkalarının yanıtlarını yorumlarda iyileştirmekten bıktım, bu yüzden şimdi açgözlüyüm ve değişikliklerimi buraya ekleyebilirim :) Bu, Platinum Azure'un cevabından bir ayrımdır - kısmen Hobbs , mobrule ve Platin Azure .

Sayı Kelimeli Utanmaz Perl (329 karakter)

p()C olanlar yerine Perl ilkelleri ve çoğunlukla yeniden yazılmış bir ana döngü kullanarak aynı şeyi yapması için bazı ince ayarlarla P Daddy'nin C kodundan oldukça doğrudan uyarlandı. Açıklama için onunkine bakın. Yeni satırların tümü isteğe bağlıdır.

@t=(qw(zero one two three four five six sM eight nine
tL elM twelve NP 4P fifP 6P 7P 8O 9P twLQ NQ forQ fifQ
6Q 7Q 8y 9Q en evL thir eL tO ty 4SmagicT)," is ",".\n");
sub p{local$_=$t[pop];1while s/[0-Z]/$t[-48+ord$&]/e;
print;length}$_=<>;chop;while($_-4){
$_=($_>19?(p($_/10+18),$_&&print("-"),$_%=10)[0]:0)+p$_;
p 35;p$_;p 36}p 34

Yan not: Perl'in printtrue / false döndürmesi çok kötü ; bir sayı döndürürse bana 7 vuruş kurtarırdı.

Ruby, 141 karakter:

n=gets.to_i;m="4335443554366887798866555766";loop{s=n;n=n>20?m[18+n/10]+m[n%10]-96: m[n]-48;puts"#{s} is #{n==s ? 'magic': n}.";n==s &&break}

while(true)
{
    string a;
    ReadLine(a)
    WriteLine(4);

}