Code Golf: โฟร์คือเวทมนตร์

Question 1

ปริศนา

ปริศนาเล็ก ๆ น้อย ๆ ที่ฉันได้ยินตอนเรียนมัธยมก็เป็นแบบนี้ ...

ผู้ถามจะขอให้ฉันให้เบอร์เขา
เมื่อได้ยินตัวเลขผู้ถามจะทำการเปลี่ยนแปลงบางอย่างซ้ำ ๆ (เช่นเขาอาจพูดว่าสิบคือสาม ) จนในที่สุดก็มาถึงเลข 4 (เมื่อถึงจุดนั้นเขาจะจบด้วยสี่คือเวทมนตร์ )
ตัวเลขใด ๆ ที่ดูเหมือนจะเปลี่ยนเป็นเลขสี่ได้ในที่สุดไม่ว่าจะเป็นอะไรก็ตาม

เป้าหมายคือการพยายามหาฟังก์ชั่นการเปลี่ยนแปลงจากนั้นจึงสามารถสร้างปริศนานี้ได้อย่างน่าเชื่อถือด้วยตัวคุณเอง

การแก้ไขปัญหา

ฟังก์ชันการเปลี่ยนแปลงในทุกขั้นตอนคือ

รับหมายเลขที่มีปัญหา
นับจำนวนตัวอักษรในการแทนคำภาษาอังกฤษโดยไม่สนใจยัติภังค์หรือช่องว่างหรือ "และ" (เช่น "สิบ" มีตัวอักษร 3 ตัว "สามสิบสี่" มี 10 ตัวอักษร "หนึ่งร้อยสี่สิบสาม" มี 20 ตัวอักษร)
ส่งกลับจำนวนตัวอักษรนั้น

สำหรับตัวเลขทั้งหมดที่ฉันเคยสนใจที่จะทดสอบสิ่งนี้จะมาบรรจบกันเป็น 4 เนื่องจาก "สี่" มีตัวอักษรสี่ตัวอยู่ด้วยจึงมีการวนซ้ำที่ไม่สิ้นสุดที่นี่ แทนที่จะเรียกว่าเวทมนตร์ตามแบบแผนเพื่อสิ้นสุดลำดับ

ความท้าทาย

ความท้าทายของคุณคือการสร้างโค้ดที่จะอ่านตัวเลขจากผู้ใช้จากนั้นพิมพ์บรรทัดที่แสดงฟังก์ชันการเปลี่ยนแปลงที่ถูกนำไปใช้ซ้ำ ๆ จนกว่า "four is magic" จะถึง

โดยเฉพาะ:

แนวทางแก้ไขต้องเป็นโปรแกรมที่สมบูรณ์ในตัวเอง ไม่สามารถเป็นเพียงฟังก์ชันที่ใช้ตัวเลข - ปัจจัยในการป้อนข้อมูล
ต้องอ่านอินพุตจากอินพุตมาตรฐาน (การต่อท่อจาก "echo" หรือการใช้การเปลี่ยนทิศทางอินพุตก็ใช้ได้เพราะมันมาจาก stdin ด้วย)
ข้อมูลที่ป้อนควรอยู่ในรูปแบบตัวเลข
สำหรับการประยุกต์ใช้ฟังก์ชันการแปลงทุกครั้งควรพิมพ์บรรทัด: a is b.โดยที่ a และ b เป็นรูปแบบตัวเลขของตัวเลขในการแปลง
ต้องหยุดเต็ม (ช่วงเวลา)!
4 is magic.บรรทัดสุดท้ายเป็นธรรมชาติควรจะพูดว่า
รหัสควรผลิตออกที่ถูกต้องสำหรับจำนวนทั้งหมดจาก0 ที่จะ 99

ตัวอย่าง:

> 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.

ผู้ชนะคือการส่งที่สั้นที่สุดโดยการนับอักขระซอร์สโค้ดซึ่งถูกต้องเช่นกัน

โบนัส

คุณอาจลองเขียนโค้ดเวอร์ชันที่พิมพ์ชื่อภาษาอังกฤษสำหรับตัวเลขด้วยแอปพลิเคชันของฟังก์ชันการแปลงแต่ละรายการ อินพุตต้นฉบับยังคงเป็นตัวเลข แต่บรรทัดเอาต์พุตควรมีรูปแบบคำของตัวเลข

(โบนัสสองเท่าสำหรับการวาดรูปทรงด้วยรหัสของคุณ)

(แก้ไข)คำชี้แจงบางประการ:

ฉันต้องการให้คำนั้นปรากฏทั้งสองด้านในทุกกรณีเช่น Nine is four. Four is magic.
ฉันไม่สนใจเรื่องการใช้อักษรตัวพิมพ์ใหญ่ และฉันไม่สนใจว่าคุณจะแยกคำว่าโทเค็นอย่างไรแม้ว่าพวกเขาควรแยกออกจากกัน: ninety-nineโอninety nineเคninetynineไม่เป็นไรไม่เป็นไร

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

อย่าลังเลที่จะส่งหนึ่งโซลูชันสำหรับแต่ละเวอร์ชัน

Question 2

GolfScript - 101 96 93 92 91 90 94 86 ไบต์

90 → 94: เอาต์พุตคงที่สำหรับการทวีคูณของ 10
94 → 86: รหัสที่ปรับโครงสร้างใหม่ ใช้ฐาน 100 เพื่อลบอักขระที่ไม่สามารถพิมพ์ได้
86 → 85: แคสต์สั้นลงเป็นสตริง

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

Question 3

Perl ประมาณ 147 ถ่าน

ขึ้นอยู่กับโซลูชันของ Platinum Azure อย่างหลวม ๆ :

               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

Question 4

Common Lisp 157 Chars

เวอร์ชันใหม่ที่สอดคล้องกันมากขึ้นขณะนี้กำลังอ่านรูปแบบอินพุตมาตรฐานและละเว้นช่องว่างและขีดกลาง:

(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)))

ในรูปแบบที่มนุษย์อ่านได้:

 (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)))

และการทดสอบบางส่วน:

>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.

และรุ่นโบนัส 165 ตัวอักษร:

 (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)))

การให้

>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.

Question 5

Python 2.x, 144 150 154 166 ตัวอักษร

สิ่งนี้แยกจำนวนออกเป็นสิบและตัวและรวมเข้าด้วยกัน คุณสมบัติที่ไม่พึงปรารถนาของตัวดำเนินการ ternary หลอกa and b or cที่cส่งคืนหากbเป็น 0 จะถูกละเมิดที่นี่

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

เวอร์ชันไร้เดียงสาก่อนหน้านี้ (150 ตัวอักษร) เพียงแค่เข้ารหัสความยาวทั้งหมดเป็นจำนวนเต็ม

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

Question 6

C - ด้วยจำนวนคำ

445 431 427 421 399 386 371 359 ^* 356 354 ^† 348 347 ตัวอักษร

แค่นั้นแหละ. ฉันไม่คิดว่าจะทำให้สั้นลงได้ขนาดนี้

การขึ้นบรรทัดใหม่ทั้งหมดมีไว้เพื่อให้อ่านง่ายและสามารถลบออกได้:

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

ด้านล่างนี้มีความเป็นเอกภาพอยู่บ้าง แต่ก็ยังอ่านยาก ดูด้านล่างสำหรับเวอร์ชันที่อ่านได้มากขึ้น

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

ขยายความและแสดงความคิดเห็น:

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"*/);
}

เกี่ยวกับสตริงที่เข้ารหัสใกล้จุดเริ่มต้น

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

ยกตัวอย่างเช่นชื่ออัด elM11 print()ฟังก์ชั่นเอาท์พุทตัวละครeและl(กรณีที่ต่ำกว่า 'L' ไม่ใช่จำนวน '1') คำต่อคำ แต่แล้วก็พบMจึงเรียกตัวเองมีค่าดัชนีของรายการที่ 29 (ASCII 'M' - ASCII '0') ลงในตารางการค้นหา สตริงนี้evLจึงเป็นเอาต์พุตeและvเรียกตัวเองอีกครั้งด้วยดัชนีของรายการที่ 28 ในตารางการค้นหาซึ่งก็คือenและเป็นเอาต์พุตคำต่อคำ สิ่งนี้มีประโยชน์เนื่องจากenยังใช้ในeLสำหรับeen(ใช้eightในภายหลังeighteen) ซึ่งใช้tOสำหรับteen(ใช้สำหรับ-teenชื่ออื่น ๆ)

โครงร่างนี้ส่งผลให้เกิดการบีบอัดชื่อตัวเลขที่ค่อนข้างสำคัญในขณะที่ต้องการโค้ดเพียงเล็กน้อยในการคลายการบีบอัด

เครื่องหมายจุลภาคที่จุดเริ่มต้นและจุดสิ้นสุดของบัญชีสตริงสำหรับวิธีง่ายๆที่พบสตริงย่อยภายในสตริงนี้ การเพิ่มอักขระสองตัวที่นี่จะช่วยประหยัดอักขระเพิ่มเติมในภายหลัง

เกี่ยวกับการละเมิดของ `main()`

argvถูกละเว้น (ดังนั้นจึงไม่ได้ประกาศในเวอร์ชันบีบอัด) ค่าของ argc จะถูกละเว้น แต่หน่วยเก็บข้อมูลจะถูกใช้ซ้ำเพื่อเก็บหมายเลขปัจจุบัน นี่ช่วยให้ฉันไม่ต้องประกาศตัวแปรพิเศษ

เกี่ยวกับการขาด `#include`

บางคนจะบ่นว่าการละเว้น#include <stdio.h>เป็นการโกง มันไม่ได้เลย ให้เป็นโปรแกรม C ที่ถูกต้องตามกฎหมายซึ่งจะรวบรวมอย่างถูกต้องบนคอมไพเลอร์ C ใด ๆ ที่ฉันรู้จัก (แม้ว่าจะมีคำเตือน) หากขาด Protoypes สำหรับฟังก์ชัน stdio คอมไพเลอร์จะถือว่าเป็นฟังก์ชัน cdecl ที่ส่งคืนintและจะเชื่อมั่นว่าคุณรู้ว่าจะส่งอาร์กิวเมนต์ใด ค่าที่ส่งคืนจะถูกละเว้นในโปรแกรมนี้และเป็นฟังก์ชันทั้งหมดของ cdecl ("C" Calling convention) และเรารู้ว่าจะส่งผ่านข้อโต้แย้งใด

เอาต์พุต

ผลลัพธ์เป็นไปตามที่คาดไว้:

0
ศูนย์คือสี่
สี่คือเวทมนตร์

1
หนึ่งคือสาม
สามคือห้า
ห้าคือสี่
สี่คือเวทมนตร์

4
สี่คือเวทมนตร์

20
ยี่สิบคือหก
หกคือสาม
สามคือห้า
ห้าคือสี่
สี่คือเวทมนตร์

21
ยี่สิบเอ็ดคือเก้า
เก้าคือสี่
สี่คือเวทมนตร์

_{^*เวอร์ชันก่อนหน้าพลาดเครื่องหมายในสองส่วนของข้อมูลจำเพาะ: ไม่ได้จัดการกับศูนย์และรับอินพุตในบรรทัดคำสั่งแทน stdin การจัดการกับเลขศูนย์ที่เพิ่มอักขระ แต่ใช้ stdin แทน args บรรทัดคำสั่งเช่นเดียวกับการเพิ่มประสิทธิภาพอื่น ๆ อีกสองสามตัวบันทึกจำนวนอักขระเท่ากันส่งผลให้มีการล้าง}

_{^†ข้อกำหนดมีการเปลี่ยนแปลงเพื่อให้ชัดเจนว่าควรพิมพ์คำตัวเลขทั้งสองด้านของ "คือ" เวอร์ชันใหม่นี้เป็นไปตามข้อกำหนดนั้นและดำเนินการเพิ่มประสิทธิภาพอีกสองสามครั้งเพื่อ (มากกว่า) บัญชีสำหรับขนาดพิเศษที่จำเป็น}

Question 7

J, 107 112ตัวอักษร

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

(ขึ้นบรรทัดใหม่เพื่อการอ่านเท่านั้น)

การใช้งานและผลลัพธ์:

    '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.

Question 8

T-SQL, 413451 499ตัวอักษร

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

(ไม่ใช่ว่าฉันแนะนำอย่างจริงจังให้คุณทำสิ่งนี้ ... จริงๆฉันแค่อยากจะเขียน CTE)

ใช้:

M 95

ผลตอบแทน

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

Question 9

Java (พร้อมแผ่นสำเร็จรูป) 308 290 286 282 280 อักขระ

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

ฉันแน่ใจว่า Groovy จะกำจัดสิ่งนั้นได้มาก

คำอธิบายและการจัดรูปแบบ (ความคิดเห็นทั้งหมดขึ้นบรรทัดใหม่และช่องว่างนำหน้า / ต่อท้ายถูกลบออกในจำนวน):

ตรงไปตรงมาพอสมควร แต่

//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");
   }
}

แก้ไข: ไม่ใช้ฐานสิบหกอีกต่อไปนี่เป็นการกดแป้นพิมพ์น้อยลง

Question 10

Windows PowerShell: 152 153 184ไบต์

ตามโซลูชันก่อนหน้าซึ่งมีอิทธิพลมากขึ้นจากโซลูชันอื่น ๆ

$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.'

Question 11

C, 158 อักขระ

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 ของ Vlad ยืมเคล็ดลับจากโซลูชัน C ++ ของ Tom Sirgedas เพื่อบีบอักขระเพิ่มอีกสองสามตัว)

เวอร์ชันขยาย:

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.");
}

Question 12

งูหลาม 129 133 137 148 ตัวอักษร

ในการอุ่นเครื่องนี่เป็นเวอร์ชันแรกของฉัน (ปรับปรุงตัวอักษรสองสามตัวเหนือ Python ที่ดีที่สุดก่อนหน้านี้)

ปล. หลังจากการทำซ้ำสองสามครั้งตอนนี้สั้นลงประมาณยี่สิบตัว:

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.'

Question 13

C #: 210 ตัวอักษร

Squished:

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

ขยาย:

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

เคล็ดลับวิธีนี้ใช้:

สร้างตารางการค้นหาสำหรับความยาวของชื่อตัวเลขตามตัวเลขที่ปรากฏในตัวเลข
ใช้การค้นหาอาร์เรย์อักขระบนสตริงและการคำนวณทางคณิตศาสตร์แทนอาร์เรย์ตัวเลข
ใช้นามแฝงชื่อคลาสเพื่อย่อConsole.เป็นC.
ใช้เงื่อนไข (ternary) ผู้ประกอบการ ( ?:) if/elseแทน
ใช้\nกับWriteรหัสการหลบหนีแทนWriteLine
ใช้ข้อเท็จจริงที่ว่า C # มีลำดับการประเมินที่กำหนดไว้เพื่ออนุญาตการมอบหมายภายในการWriteเรียกใช้ฟังก์ชัน
ใช้นิพจน์การกำหนดเพื่อกำจัดข้อความเพิ่มเติมและเครื่องหมายวงเล็บเสริม

Question 14

Perl: 148 อักขระ

(Perl: ~~233~~ ~~181~~ ~~212~~ ~~206~~ ~~200~~ ~~199~~ ~~198~~ ~~185~~ ~~179~~ ~~149~~ 148 ตัวอักษร)

ย้ายข้อยกเว้นแฮชไปยังอาร์เรย์หน่วย สิ่งนี้ส่งผลให้ฉันสามารถตัดตัวละครได้มาก :-)
mobrule ชี้ให้เห็นข้อบกพร่องที่น่ารังเกียจ แก้ไขด่วนเพิ่ม 31 ตัวอุ๊ย!
ปรับโครงสร้างใหม่สำหรับกรณีพิเศษเป็นศูนย์การเล่นกอล์ฟแบบไม่รุนแรงทำได้เช่นกัน
เข้าถึงรายการโดยตรงสำหรับการใช้งานครั้งเดียวแทนที่จะจัดเก็บในอาร์เรย์? ใช่!
การตอบสนองที่มากสำหรับตัวละครเลือดเพียงตัวเดียว นี่คือชีวิตของนักกอล์ฟอย่างแท้จริง :-(
อ๊ะแก้ไขช่องว่างง่ายๆ 198 ตอนนี้.
เปลี่ยนรหัสซ้ำซ้อนบางส่วน
คำหลักที่ส่งคืนสุดท้ายในrนั้นไม่จำเป็นต้องโกนออกไปอีก
การปรับโครงสร้างจำนวนมากต่อความคิดเห็น น่าเสียดายที่ฉันทำได้แค่ 149 เพราะฉันต้องแก้ไขข้อบกพร่องที่มีอยู่ทั้งในโค้ดก่อนหน้าและเวอร์ชันของผู้แสดงความคิดเห็น
ลองใช้ "เวทมนตร์"

ให้ลูกบอลกลิ้งด้วยความพยายามเล็กน้อยใน Perl

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

เคล็ดลับ:

มากเกินไป!

Question 15

JavaScript 1.8 (SpiderMonkey) - 153 ตัวอักษร

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.')

การใช้งาน: echo 42 | js golf.js

เอาท์พุต:

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

พร้อมโบนัส - 364 ตัวอักษร

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.')

เอาท์พุต:

เก้าสิบเก้าคือสิบ
สิบคือสาม
สามคือห้า
ห้าคือสี่
สี่คือเวทมนตร์

Question 16

Haskell 224 270อักขระ

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

และอ่านได้มากขึ้น -

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

Question 17

เวอร์ชัน C ++ Stdio ย่อขนาด: 196 อักขระ

#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 ย่อขนาด: 195 อักขระ

#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";}

ต้นฉบับไม่ได้ลดขนาด: 344 อักขระ

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

Question 18

Delphi: 329 อักขระ

เวอร์ชันบรรทัดเดียว:

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.

รูปแบบ:

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.

อาจมีที่ว่างสำหรับการบีบมากขึ้น ... :-P

Question 19

C # ~~314~~ ~~286~~ ~~283~~ ~~274~~ ~~289~~ ~~273252~~ตัวอักษร

Squished:

ปกติ:

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

แก้ไข Dykam: การแทรกและการเปลี่ยนแปลงค่อนข้างระมัดระวัง:

เปลี่ยน l ToString () เป็นการร่ายเป็นobjectของstring "magic".
สร้างตัวแปรชั่วคราวoดังนั้นฉันจึงสามารถย้ายbreakนอกforลูปได้นั่นคือทำให้เกิดไฟล์do-while.
inlined oมอบหมายเช่นกันvมอบหมาย continueing ในการแทรกการคำนวณในการขัดแย้งการทำงานโดยสิ้นเชิงลบความจำเป็นในการl lนอกจากนี้ยังได้รับมอบหมาย inlined mของ
ลบออกพื้นที่ในint[] x, int[]xคือ Legit เกินไป
พยายามที่จะแปลงอาร์เรย์เป็นการแปลงสตริง แต่using System.Linqมันมากเกินไปที่จะทำการปรับปรุงนี้

แก้ไข 2 Dykam เปลี่ยน int array เป็น char array / string เพิ่ม arithmics ที่เหมาะสมเพื่อแก้ไขสิ่งนี้

Question 20

Lua 176 ตัวอักษร

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

หรือ

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

Question 21

C - ไม่มีคำจำนวน

180 175 ^* 172 167 ตัวอักษร

การขึ้นบรรทัดใหม่ทั้งหมดมีไว้เพื่อให้อ่านง่ายและสามารถลบออกได้:

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.");}

unminified เล็กน้อย:

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.");
}

_{^*เวอร์ชันก่อนหน้าพลาดเครื่องหมายในสองส่วนของข้อมูลจำเพาะ: ไม่ได้จัดการกับศูนย์และรับอินพุตในบรรทัดคำสั่งแทน stdin การจัดการอักขระที่เพิ่มเป็นศูนย์ แต่ใช้ stdin แทน args บรรทัดคำสั่งจะช่วยประหยัดได้มากขึ้นส่งผลให้ประหยัดเน็ต}

Question 22

perl, 123 122 ตัวอักษร

เพิ่งตระหนักว่าไม่มีข้อกำหนดในการส่งออกไปยัง STDOUT ดังนั้นให้ส่งออกไปยัง STDERR แทนและเคาะอักขระอื่นออก

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

และเวอร์ชันที่ส่งกลับการสะกดตัวเลข:

279 278 276 280 อักขระ

@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/

แม้ว่าจะเป็นไปตามข้อกำหนด แต่ก็ไม่ได้มีรูปแบบที่ดี 100% ส่งคืนช่องว่างเพิ่มเติมหลังจากตัวเลขที่ลงท้ายด้วยศูนย์ ข้อมูลจำเพาะกล่าวว่า:

"ฉันไม่สนใจว่าคุณจะแยกคำว่าโทเค็นอย่างไรแม้ว่าพวกเขาควรแยก"

นั่นเป็นสิ่งที่อ่อนแอ รุ่นที่ถูกต้องมากขึ้นที่

282 281 279 283 อักขระ

@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/

Question 23

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"

Question 24

C ++, 171 อักขระ (#include ละไว้)

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.");}

Question 25

ทับทิม 164 ตัวอักษร

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

ถอดรหัส:

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

Question 26

ลัวะ~~185~~ ~~190~~ 199

เพิ่มช่วงเวลาเพิ่ม io.read, ลบ () ในการพิมพ์ครั้งล่าสุด

 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.'

ด้วยการแบ่งบรรทัด

 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.'

Question 27

รหัส PhP

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

//////////// การทดสอบ ////////////////

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

////// ผล /////////

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

Question 28

Perl - 130 ตัวอักษร

5.12.1 (130 ตัวอักษร) ^{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 ตัวอักษร) ^{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/

ประวัติการเปลี่ยนแปลง:

20100714:2223- เปลี่ยนกลับตามความสนใจของmobruleแต่($_%10&&$u[$_%10])→ (($_%=10)&&$u[$_])ซึ่งเป็น # ตัวอักษรเดียวกัน แต่ฉันทำไปแล้วในกรณีที่อาจมีคนเห็นวิธีปรับปรุง

20100714:0041- split//,'...'→ '...'=~/./g
20100714:0025- ($_%10&&$u[$_%10])→ $u[$_%10]
20100713:2340- while$_→ until/\D/+ ลบวงเล็บที่ไม่จำเป็นออก
20100713:xxxx- $=<>;chop;→ $_=pop;- เอื้อเฟื้อต่อmobrule

หมายเหตุ:ฉันเบื่อที่จะปรับปรุงคำตอบของคนอื่นในความคิดเห็นดังนั้นตอนนี้ฉันรู้สึกโลภและสามารถเพิ่มการเปลี่ยนแปลงของฉันได้ที่นี่ :) นี่คือส่วนที่แยกออกจากคำตอบของPlatinum Azure - เครดิตในส่วนของHobbs , mobruleและลาตินั่มสีฟ้า

Question 29

Perl ไร้ยางอายพร้อมคำจำนวน (329 ตัวอักษร)

ดัดแปลงมาจากรหัส C ของ P Daddy โดยตรงโดยมีการปรับแต่งบางอย่างp()เพื่อให้ทำสิ่งเดียวกันโดยใช้ Perl primitives แทน C และ mainloop ที่เขียนใหม่ส่วนใหญ่ ดูคำอธิบายของเขา Newlines เป็นทางเลือกทั้งหมด

@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

หมายเหตุด้านข้าง: มันแย่เกินไปที่ perl printจะคืนค่าจริง / เท็จ ถ้ามันส่งคืนการนับมันจะช่วยฉันได้ 7 จังหวะ

Question 30

ทับทิม 141 ตัวอักษร:

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}

Question 31

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

}