Thử thách:

Công việc của bạn là tạo ra một trình thông dịch đơn giản cho một ngôn ngữ chơi golf đơn giản.

Đầu vào:

Đầu vào sẽ ở dạng chuỗi được phân tách bằng dấu cách.

Bạn có thể thay thế phân tách không gian bằng những gì bạn muốn

Đầu ra:

Xuất kết quả (một số hoặc một chuỗi) thu được sau khi thực hiện tất cả các hoạt động. Nếu có nhiều đầu ra kết hợp với nhau để đưa ra một kết quả (không có dấu phân cách). Giá trị ban đầu của biến luôn bằng không. tức là: Nó bắt đầu từ0

Cú pháp ngôn ngữ:

Ngôn ngữ có các toán tử sau:

inc  ---> add one to variable
dec  ---> remove one from variable
mult ---> multiply variable by 2
half ---> divide the variable by 2
Pri  ---> print the variable to console (or whatever your language has)
exit ---> end the program (anything after this is ignored)

Ví dụ:

inc inc inc dec Pri exit                 ---> 2
dec inc mult inc inc Pri                 ---> 2
inc inc inc mult half Pri exit inc       ---> 3
inc Pri inc Pri inc Pri exit half mult   ---> 123
Pri exit                                 ---> 0
inc half Pri exit                        ---> 0.5 

Sự hạn chế:

Đây là môn đánh gôn để mã ngắn nhất tính theo byte cho mỗi ngôn ngữ sẽ giành chiến thắng.

Ghi chú:

• Đầu vào sẽ luôn có hiệu lực. (chuỗi toán tử được phân tách bằng dấu cách)
• Bạn có thể làm tròn xuống số nguyên gần nhất nếu bạn không muốn vị trí thập phân.

Bash , 61 byte

sed '1i0
s/.//2g;y"idmhe"+-*/q";/+\|-/i1
/*\|\//i2
/P/cdn'|dc

Hãy thử trực tuyến!

Chuyển đổi chương trình thành chương trình dc, sau đó đánh giá nó là mã dc. Điều này có đầu vào được phân tách bằng dòng mới. Lưu ý rằng dc dựa trên ngăn xếp và sử dụng ký hiệu đánh bóng ngược.

Đầu vào đầu tiên được dẫn đến sed

1i0 trên dòng đầu tiên, chèn (trả trước) 0, đây sẽ là bộ tích lũy

s/.//2g xóa mọi thứ trừ ký tự đầu tiên trên mỗi dòng

y"idmhe"+-*/q"chuyển idmhethành +-*/qtương ứng, + - * / là các lệnh số học và q thoát khỏi chương trình

/+\|-/trên mỗi dòng chứa + hoặc -, i1chèn 1

/*\|\//trên mỗi dòng chứa * hoặc /, i2chèn 2

/P/trên mỗi dòng chứa P, cdnthay đổi nó thành dn, tương đương với trùng lặp và đầu ra mà không có dòng mới trong dc

Bây giờ điều này được đánh giá là một biểu thức dc.

Thạch , 21 byte

ḲḢ€O%11ị⁾’‘j“IȮḤH”¤VI

Hãy thử trực tuyến!

Lưu ý rằng các giá trị ASCII của các ký tự đầu tiên ( idmhPe) modulo 11 là modulo 6 duy nhất.

Sử dụng modulo 16:

Thạch , 21 byte

ḲḢ€O%⁴ị“ḢwġḞkz’ṃØJ¤VI

Hãy thử trực tuyến!

Chuỗi được sử dụng để lập chỉ mục là ḤH‘’IȮtrong trường hợp này. Các ‘’không còn trên ranh giới.

R , 128 125 byte

Reduce(function(x,y)switch(y,i=x+1,d=x-1,m=x*2,h=x/2,P={cat(x);x}),substr(el(strsplit(gsub("e.*$","",scan(,""))," ")),1,1),0)

Hãy thử trực tuyến!

Phải được gọi với source(echo=FALSE)để ngăn giá trị trả về được in tự động. Giải pháp thay thế sẽ là bọc mọi thứ vàoinvisible nhưng nó ít chơi gôn hơn (và làm hỏng số byte đẹp [vẫn] của tôi).

05AB1E , 25 byte

΀¬"idmhPe"S"><·;=q"S‡J.V

Hãy thử trực tuyến!

Ánh xạ từng hàm ngôn ngữ với hàm 05AB1E tương ứng (sử dụng char đầu tiên của mỗi hàm), sau đó thực thi chuỗi kết quả là mã 05AB1E.

Màu đỏ , 121 byte

func[s][v: 0 parse s[any[["i"(v: v + 1)|"d"(v: v - 1)|"m"(v: v * 2)|"h"(v: v / 2.0)|"P"(prin v)|"e"(exit)]thru" "| end]]]

Hãy thử trực tuyến!

Có thể đọc được

f: func [s] [
    v: 0
    parse s [
        any [
            [ "i" (v: v + 1)
            | "d" (v: v - 1)
            | "m" (v: v * 2)
            | "h" (v: v / 2.0)
            | "P" (prin v)
            | "e" (exit)]
            thru [" " | end]
        ]
    ]
] 

Python 2 , 131 125 122 121 118 117 115 byte

v=0;o=""
for x in input().split("x")[0].split():
 if"Q">x:o+=`v`
 else:v+=(1,-1,v,-v/2.)['idmh'.find(x[0])]
print o

Hãy thử trực tuyến!

-6 và -3 cảm ơn @Rod

-3 và -2 nhờ vào @etene

-1 bằng cách thay thế "Pri"==xbằng"P"in x

Python 3 , 110 91 82 byte

exit sẽ khiến chương trình thoát ra với một lỗi.

x=0
for c in input():c=='P'==print(x,end='');x+=(1,-1,x,-x/2,c,0)['ndmhx'.find(c)]

Hãy thử trực tuyến!

JavaScript (ES6), 83 79 byte

Đã lưu 4 byte nhờ @ l4m2

Lặp lại thay thế các hướng dẫn bằng chuỗi đầu ra hoặc chuỗi rỗng.

s=>s.replace(/\S+./g,w=>m<s?'':w<{}?m:(m+={d:-1,e:w,i:1,m}[w[0]]||-m/2,''),m=0)

Hãy thử trực tuyến!

Đã bình luận

s =>                       // given the input string s
  s.replace(/\S+./g, w =>  // for each word w in s:
    m < s ?                //   if m is a string:
      ''                   //     ignore this instruction
    :                      //   else:
      w < {} ?             //     if w is 'Pri' ({} is coerced to '[object Object]'):
        m                  //       output the current value of m
      : (                  //     else:
          m +=             //       add to m:
            { d: -1,       //         -1 if w is 'dec'
              e: w,        //         w  if w is 'exit' (which turns m into a string)
              i: 1,        //         1  if w is 'inc'
              m            //         m  if w is 'mult'
            }[w[0]]        //       using the first character of w to decide
            || -m / 2,     //       or add -m/2 (for 'half') if the above result was falsy
        ''),               //       do not output anything
    m = 0                  //   m = unique register of our mighty CPU, initialized to 0
  )                        // end of replace()

Than , 37 35 byte

≔⁰ηＦ⎇№θx…θ⌕θxθ≡ιn≦⊕ηd≦⊖ηm≦⊗ηh≦⊘ηrＩη

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Lấy cảm hứng từ câu trả lời của @ RickHitchcock. Giải trình:

≔⁰η

Xóa biến.

Ｆ⎇№θx…θ⌕θxθ≡ι

Cắt ngắn đầu vào tại x nếu có một, sau đó lặp lại và bật từng ký tự của (phần còn lại) của đầu vào.

n≦⊕η

ni n cắt biến.

d≦⊖η

d d làm thay đổi biến.

m≦⊗η

m m ultiplies biến bằng hai (tức là nhân đôi).

h≦⊘η

h h alves biến.

rＩη

rp r ints biến biến thành chuỗi.

JavaScript (ES6), 77 75 byte

(Mượn ( lấy trộm ) @ Arnauld lừa sử dụng mlàm tên biến, tiết kiệm 2 byte.)

f=([c,...s],m=0)=>c<'x'?(c=='P'?m:'')+f(s,m+({h:-m/2,d:-1,n:1,m}[c]||0)):''

Đệ quy đi bộ chuỗi, tìm kiếm các chữ cái riêng biệt cho mỗi hướng dẫn và bỏ qua phần còn lại:

• n: inc
• d: tháng mười hai
• m: nhiều
• h: một nửa
• P: Giải
• x: thoát

Lợi dụng thực tế là undefinedkhông phải là lớn hơn cũng không ít hơn 'x', làm cho đệ quy để dừng ở phần cuối của chuỗi hoặc khi gặp phải 'x'ở lối ra .

f=([c,...s],n=0)=>c<'x'?(c=='P'?n:'')+f(s,n+({h:-n/2,d:-1,n:1,m}[c]||0)):''

console.log(f('inc inc inc dec Pri exit'));                 //--> 2
console.log(f('dec inc mult inc inc Pri'));                 //--> 2
console.log(f('inc inc inc mult half Pri exit inc'));       //--> 3
console.log(f('inc Pri inc Pri inc Pri exit half mult'));   //--> 123
console.log(f('Pri exit'));                                 //--> 0
console.log(f('inc half Pri exit'));                        //--> 0.5 

JavaScript (Node.js) , 107 byte

f=s=>s.split` `.map(([o])=>F?0:o=="i"?i++:o=="d"?i--:o=="m"?i*=2:o=="h"?i/=2:o=="P"?S+=i:F=1,F=i=0,S="")&&S

Hãy thử trực tuyến!

JavaScript (Node.js) , 91 byte

_=>_.split` `.map(o=>o<{}>!_?S+=+i:o<"e"?i--:o<"f"?++_:o<"i"?i/=2:o<"j"?i++:i*=2,i=S="")&&S

Hãy thử trực tuyến!

JavaScript (Node.js) , 96 byte

_=>_.split` `.map(o=>F?0:o<"Q"?S+=i:o<"e"?i--:o<"f"?F=1:o<"i"?i/=2:o<"j"?i++:i*=2,F=i=0,S="")&&S

Hãy thử trực tuyến!

JavaScript (Node.js) , 99 byte

s=>s.split` `.map(_=>eval('++i7--i7++e7u+=+i7i*=27i/=2'.split(7)[Buffer(e+_)[0]%11%6]),e=i=u='')&&u

Hãy thử trực tuyến!

JavaScript, 107 byte

s=>eval('x=0;x'+(s.split` `.map(v=>({i:"++",d:"--",m:"*=2",h:"/=2",P:";alert(x)",e:"//"})[v[0]]).join`;x`))

Haskell , 93 byte

(0!)
a!(c:t)|c=='P'=show a++a!t|c>'w'=""|1<2=(a+sum(lookup c$zip"ndmh"[1,-1,a,-a/2]))!t;a!e=e

Hãy thử trực tuyến!

Về cơ bản là bản dịch câu trả lời Python của mbomb007 .

Lua, 207 byte

s=0;n=0;for a in io.read():gmatch'.'do if s==0 then s=1;n=a=='i'and n+1 or a=='d'and n-1 or a=='m'and n*2 or a=='h'and n/2 or n;if a=='P'then print(n)elseif a=="e"then break end elseif a==' 'then s=0 end end

Python 3 , 114 110 109 116 byte

Trên thực tế, sẽ mất ít hơn hai byte trong Python 2 vì đây execlà một câu lệnh và không cần dấu ngoặc đơn ...

• Đã lưu thêm 4 byte nhờ @ElPedro

• Đã lưu thêm một byte bằng cách lợi dụng thực tế findtrả về -1 lỗi, sau đó có thể được sử dụng làm chỉ mục

• +7 byte bởi vì tôi đã không nhận thấy quy tắc không có dòng mới :(

i=0;exec(";".join("i+=1 i-=1 i*=2 i/=2 print(i,end='') exit()".split()["idmhP".find(h[0])]for h in input().split()))

Hãy thử trực tuyến!

Ánh xạ ký tự đầu tiên của mỗi từ đầu vào thành một đoạn mã Python. Chúng sau đó được nối vàexec ed.

Cách tiếp cận khá đơn giản, có lẽ có thể được đánh gôn nhiều hơn một chút. Khó khăn chủ yếu nằm ở việc tìm ra hình thức ngắn nhất trong số nhiều hình thức có thể ...

Ruby + -na, 81 73 65 byte

x=0;$F.map{|w|eval %w{x+=1 x-=1 1/0 $><<x x*=2 x/=2}[w.ord%11%6]}

Hãy thử trực tuyến!

Khá đơn giản. Đối với chữ cái đầu tiên của mỗi từ, tìm chuỗi lệnh tương ứng và evalnó. Sử dụng phép chia số nguyên, và exitsbằng cách ném a ZeroDivisionError.

-5 byte: Sử dụng .ord%11%6thay vì tra cứu chuỗi. Tín dụng đi đến dùng202729

-3 byte: .ordchỉ xem xét ký tự đầu tiên của chuỗi, vì vậy tôi có thể bỏ qua a [0].

-8 byte: Sử dụng -acờ để tự động phân tách đầu vào, nhờ vào Kirill L.

Biểu tượng cảm xúc , 270 byte

🐖🔥🍇🍮c 0🔂j🍡💣🐕🔟 🍇🍊😛j🔤inc🔤🍇🍮c➕c 1🍉🍋😛j🔤dec🔤🍇🍮c➖c 1🍉🍋😛j🔤mult🔤🍇🍮c✖️c 2🍉🍋😛j🔤half🔤🍇🍮c➗c 2🍉🍋😛j🔤Pri🔤🍇👄🔡c 10🍉🍓🍇🍎🍉🍉🍉

Hãy thử trực tuyến!

🐋🔡🍇
🐖🔥🍇
🍮c 0
🔂j🍡💣🐕🔟 🍇
🍊😛j🔤inc🔤🍇🍮c➕c 1🍉
🍋😛j🔤dec🔤🍇🍮c➖c 1🍉
🍋😛j🔤mult🔤🍇🍮c✖️c 2🍉
🍋😛j🔤half🔤🍇🍮c➗c 2🍉
🍋😛j🔤Pri🔤🍇👄🔡c 10🍉
🍓🍇🍎🍉🍉🍉🍉

🏁🍇
 🔥🔤inc inc inc dec Pri exit🔤
😀🔤🔤
 🔥🔤dec inc mult inc inc Pri🔤
😀🔤🔤
 🔥🔤inc inc inc mult half Pri exit inc🔤
😀🔤🔤
 🔥🔤inc Pri inc Pri inc Pri exit half mult🔤
😀🔤🔤
 🔥🔤Pri exit🔤
😀🔤🔤
 🔥🔤inc half Pri exit🔤
🍉

SNOBOL4 (CSNOBOL4) , 165 byte

	P =INPUT ' exit ' 
	x =0
S	P LEN(1) $ L ARB ' ' REM . P	:S($L)F(end)
i	X =X + 1	:(S)
d	X =X - 1	:(S)
P	O =O X		:(S)
m	X =X * 2	:(S)
h	X =X / 2.	:(S)
e	OUTPUT =O
END

Hãy thử trực tuyến!

Tổng.

	P =INPUT ' exit ' 				;* append ' exit ' to the input to guarantee that the program will stop
	x =0						;* initialize x to 0 else it won't print properly if the program is 'Pri'
S	P LEN(1) $ L ARB ' ' REM . P	:S($L)F(end)	;* set L to the first letter of the word and goto the appropriate label
i	X =X + 1	:(S)
d	X =X - 1	:(S)
P	O =O X		:(S)				;* append X to the output string
m	X =X * 2	:(S)
h	X =X / 2.	:(S)				;* divide by 2. to ensure floating point
e	OUTPUT =O					;* print whatever's in O, which starts off as ''
END

C # (.NET Core), 186 byte

class P{static void Main(string[]a){int v=0;foreach(var s in a){var i=s[0];if(i=='i')v++;if(i=='d')v--;if(i=='m')v*=2;if(i=='h')v/=2;if(i=='P')System.Console.Write(v);if(i=='e')break;}}}

Perl 5 -a , 61 byte

eval'$,'.qw(++ -- ;exit ;print$,||0 *=2 /=2)[(ord)%11%6]for@F

Hãy thử trực tuyến!

Lấy trộm @ user202729 ord%11%6 lừa

Làm sao?

-a            # split the input by whitespace, store in @F
eval          # Execute the string that results from:
'$,'          # $, (the accumulator)
.             # appending:
qw(           # create an array for the following whitespace separated values:
++ --            # operators for inc & dec
;exit            # exit
;print$,||0      # Pri  (||0 ensures that 0 is output if accumulator is null
*=2 /=2)         # mult div
[(ord)%11%6] # @user202729's trick selects one of the preceding operations
for@F        # for every term input

Bình, 44 byte

Vmx"idmhPe"hdcwd=Z@[hZtZyZcZ2ZZ)NIqN4pZIqN6B

Phòng thử nghiệm

giải trình

Vmx"idmhPe"hdcwd=Z@[hZtZyZcZ2ZZ)NIqN4pZIqN6B   ## full program
             cwd                               ## split input on space
Vmx"idmhPe"hd                                  ## iterate through list of numbers corresponding to operators
                =Z@[hZtZyZcZ2ZZ)N              ## assign the variable Z (initialliy Zero) it's new value
                                 IqN4pZ        ## print Z if the current operator is "Pri" (4)
                                       IqN6B   ## break if the current operator is "exit" (5)

TI-BASIC, 112 byte

Điều này tận dụng một số giả định mà AFAIK hoàn toàn chấp nhận được. Số một là tất cả các biến được khởi tạo về 0 trước khi thực hiện; số hai là đầu vào được thực hiện thông qua Ans.

Ans+" E→Str1
While 1
I+4→I
sub(Str1,I-3,1→Str2
A+(Ans="I")-(Ans="D
If inString("MH",Str2
Then
I+1→I
2AAns+A/2(1-Ans
End
If Str2="P
Disp A
If Str2="E
Stop
Ans→A
End

Java (OpenJDK 8) , 164 byte

a->{int c=0;for(String g:a.split(" ")){char b=g.charAt(0);if(b==105)c++;if(b==100)c--;if(b==109)c*=2;if(b==104)c/=2;if(b==80)System.out.print(c);if(b==101)return;}}

Hãy thử trực tuyến!

Trên đây là giải pháp của tôi làm tròn số nguyên, nhưng dưới đây là giải pháp của tôi xử lý số thập phân. Cách đáng ghét mà java in tăng gấp đôi thêm 55 điểm nữa vào điểm số. Tôi đã để lại các dòng mới để làm cho mã dễ đọc hơn trong lần gửi thứ hai vì về cơ bản đó là cùng một giải pháp với một lệnh bổ sung và một câu lệnh nhập.

Java (OpenJDK 8) , 219 byte

a->{
double c=0;
for(String g:a.split(" ")){
char b=g.charAt(0);
if(b==105)c++;
if(b==100)c--;
if(b==109)c*=2;
if(b==104)c/=2;
if(b==80)System.out.print(new DecimalFormat("0.#").format(c));
if(b==101)return;}}

Hãy thử trực tuyến!

C (gcc) , 120 114 111 byte

-6 byte nhờ vào trần nhà.

x,d;f(char*s){for(x=0;s>1;s=index(d^1?s:"",32)+1)d=*s-100,x+=d?d==5:-1,x*=d^9?d^4?1:.5:2,d+20||printf("%d",x);}

Hãy thử trực tuyến!

124 byte

Phiên bản dấu phẩy động:

d;f(char*s){for(float f=0;s>1;s=strchr(s,32)+1)d=*s-80,f+=d==25,f-=d==20,f*=d^29?d^24?1:.5:2,s=d^21?s:"",d?:printf("%f",f);}

Hãy thử trực tuyến!

Tôi không bận tâm với một phiên bản làm tròn xuống, nhưng tạo một ngoại lệ cho 0, sẽ được cho phép, nếu tôi hiểu chính xác chuỗi nhận xét.

33 , 62 byte

s'i'{1a}'d'{1m}'m'{2x}'h'{2d}'P'{o}'e'{@}It[mzsjk""ltqztItn1a]

Hãy thử trực tuyến!

Chương trình này có các hướng dẫn được phân định bởi các dòng mới

Giải trình:

It[mzsjk""ltqztItn1a]
  [mz            n1a] | Forever
It    jk       It     | - Get the first character of the next instruction
            qz        | - Call the function declared previously
     s  ""lt  t       | - Make sure we don't lose track of the variable

Mã trước đoạn đó xác định tất cả các chức năng.