Thử thách

Gần đây tôi đã nhận được vào máy tính 8 bit và say mê với hoạt động của chúng và những người khác; do đó, mục tiêu của môn đánh gôn này là tái tạo một phần của Màn hình Woz, được thiết kế bởi Steve Wozniak cho Apple I.

Bạn phải lưu trữ một mảng gồm 22 giá trị thập lục phân với độ rộng hai byte, (giá trị tối thiểu $ 10 , giá trị tối đa $ FF ), sau đó lấy số n của đầu vào. (Thông thường hai ngôn ngữ như Brainfuck có thể có một thời gian khó khăn).
Các đầu vào sẽ đề cập đến nơi trong mảng bắt đầu in và dừng ở đâu; một đầu vào với hành vi được xác định sẽ có giá trị bắt đầu của chúng nhỏ hơn hoặc bằng giá trị kết thúc. Chương trình của bạn sau đó phải có khả năng in mọi giá trị thập lục phân giữa và bao gồm cả các hình lục giác được nhập vào.

Một ví dụ về điều này:

Array
00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 10 11 12 13 14 15

Values
FF F4 B6 D7 40 00 00 A4 F0 00 FF 0D 9C 21 65 C4 02 28 90 E7 D6 A5

input first num:
04
input second num:
14
40 00 00 A4 F0 00 FF 0D 9C 21 65 C4 02 28 90 E7 D6

Bây giờ phần thú vị của bài tập này, là bạn có thể sử dụng bất cứ thứ gì bạn muốn để kiểm tra giới hạn của đầu vào của người dùng. Người đầu vào hellovà chương trình của bạn có hành vi không xác định? Nó thoát mà không báo trước? Cả hai đều hợp lệ.

Các quy tắc duy nhất là:

1. Bạn phải bao gồm các giá trị của 22 giá trị thập lục phân như một phần của chương trình trước khi bắt đầu, (không thể yêu cầu người dùng nhập dữ liệu).
2. Đầu ra của các giá trị thập lục phân phải tuân theo định dạng chính xác: 00 FF 00 FF 00Trailing space, tab hoặc lines là OK. Nhân vật thì không.
3. Chương trình không phải yêu cầu đầu vào bằng một tin nhắn. Để trống "tin nhắn" nếu bạn muốn. Tuy nhiên, người dùng phải nhập các giới hạn hex.
4. Giống như các giá trị của 22 hexadecimals tùy thuộc vào bạn quyết định, bạn phải tạo một chương trình thực sự tìm nạp các giá trị từ bộ lưu trữ, trái ngược với việc bắt chước một chương trình bằng cách in các giá trị. (chẳng hạn như danh sách $ 00 's).
5. n - lượng đầu vào, đề cập đến lượng đầu vào cần thiết cho ngôn ngữ bạn chọn để nhận ra hệ thập lục phân có độ rộng hai byte. ví dụ. (Brainfuck sẽ yêu cầu hai đầu vào trên mỗi hex, làm cho bốn đầu vào cho hai).

Hãy bình luận nếu bạn cần làm rõ.

Đây là mã golf, vì vậy câu trả lời ngắn nhất trong số byte là người chiến thắng.

Bảng xếp hạng

Dưới đây là bảng xếp hạng tạo ra đoạn trích lịch sự của Martin Ender .

Để đảm bảo rằng câu trả lời của bạn hiển thị, vui lòng bắt đầu câu trả lời của bạn bằng một tiêu đề, sử dụng mẫu Markdown sau:

# Language Name, N bytes

nơi Nlà kích thước của trình của bạn. Nếu bạn cải thiện điểm số của mình, bạn có thể giữ điểm số cũ trong tiêu đề, bằng cách đánh bại chúng thông qua. Ví dụ:

# Ruby, <s>104</s> <s>101</s> 96 bytes

function answersUrl(e){return"http://api.stackexchange.com/2.2/questions/95080/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function getAnswers(){$.ajax({url:answersUrl(page++),method:"get",dataType:"jsonp",crossDomain:true,success:function(e){answers.push.apply(answers,e.items);if(e.has_more)getAnswers();else process()}})}function shouldHaveHeading(e){var t=false;var n=e.body_markdown.split("\n");try{t|=/^#/.test(e.body_markdown);t|=["-","="].indexOf(n[1][0])>-1;t&=LANGUAGE_REG.test(e.body_markdown)}catch(r){}return t}function shouldHaveScore(e){var t=false;try{t|=SIZE_REG.test(e.body_markdown.split("\n")[0])}catch(n){}return t}function getAuthorName(e){return e.owner.display_name}function process(){answers=answers.filter(shouldHaveScore).filter(shouldHaveHeading);answers.sort(function(e,t){var n=+(e.body_markdown.split("\n")[0].match(SIZE_REG)||[Infinity])[0],r=+(t.body_markdown.split("\n")[0].match(SIZE_REG)||[Infinity])[0];return n-r});var e={};var t=0,c=0,p=-1;answers.forEach(function(n){var r=n.body_markdown.split("\n")[0];var i=$("#answer-template").html();var s=r.match(NUMBER_REG)[0];var o=(r.match(SIZE_REG)||[0])[0];var u=r.match(LANGUAGE_REG)[1];var a=getAuthorName(n);t++;c=p==o?c:t;i=i.replace("{{PLACE}}",c+".").replace("{{NAME}}",a).replace("{{LANGUAGE}}",u).replace("{{SIZE}}",o).replace("{{LINK}}",n.share_link);i=$(i);p=o;$("#answers").append(i);e[u]=e[u]||{lang:u,user:a,size:o,link:n.share_link}});var n=[];for(var r in e)if(e.hasOwnProperty(r))n.push(e[r]);n.sort(function(e,t){if(e.lang>t.lang)return 1;if(e.lang<t.lang)return-1;return 0});for(var i=0;i<n.length;++i){var s=$("#language-template").html();var r=n[i];s=s.replace("{{LANGUAGE}}",r.lang).replace("{{NAME}}",r.user).replace("{{SIZE}}",r.size).replace("{{LINK}}",r.link);s=$(s);$("#languages").append(s)}}var QUESTION_ID=49042;var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe";var answers=[],page=1;getAnswers();var SIZE_REG=/\d+(?=[^\d&]*(?:&lt;(?:s&gt;[^&]*&lt;\/s&gt;|[^&]+&gt;)[^\d&]*)*$)/;var NUMBER_REG=/\d+/;var LANGUAGE_REG=/^#*\s*([^,]+)/

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<script src=https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js></script><link rel=stylesheet type=text/css href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"><div id=answer-list><h2>Leaderboard</h2><table class=answer-list><thead><tr><td></td><td>Author<td>Language<td>Size<tbody id=answers></table></div><div id=language-list><h2>Winners by Language</h2><table class=language-list><thead><tr><td>Language<td>User<td>Score<tbody id=languages></table></div><table style=display:none><tbody id=answer-template><tr><td>{{PLACE}}</td><td>{{NAME}}<td>{{LANGUAGE}}<td>{{SIZE}}<td><a href={{LINK}}>Link</a></table><table style=display:none><tbody id=language-template><tr><td>{{LANGUAGE}}<td>{{NAME}}<td>{{SIZE}}<td><a href={{LINK}}>Link</a></table>

Thạch , 24 21 byte

w@€ØHḅ⁴
ɠǵɠÇr@b⁴ịØHK

Giá trị được chọn: [00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 1F 10 11 12 13 14 15]

Dùng thử

Nếu đầu vào thứ hai nhỏ hơn đầu vào thứ nhất, nó sẽ xuất chuỗi đảo ngược.
Hành vi ngoài giới hạn không được xác định (ví dụ: "foo", "14" trả về 38 giá trị, hầu hết trong số đó thậm chí không nằm trong mảng và nhiều trong số đó không có độ dài 2)

Làm sao?

w@€ØHḅ⁴ - Link 1, parse a string as a 1-based hex value e.g. "14"
w@€      - first index (1-based) of each character in
   ØH    - hex digits: "0123456789ABCDEF"                   [2,5]
     ḅ⁴ - convert from base 16                                 37

ɠǵɠÇr@b⁴ịØHK - Main link
ɠ  ɠ          - read a line from stdin               e.g. "04"  "14"
 Ç  Ç         - call the last link (1) as a monad          21    37
  µ           - monadic chain separation
     r@       - inclusive range, with reversed arguments  [   21,   22,...,   36,   37] 
       b⁴     - convert to base 16                        [[1,5],[1,6],...,[2,4],[2,5]]
         ị    - index into
          ØH  - hex digits: "0123456789ABCDEF"            [ "04", "05",..., "13", "14"]
            K - join with spaces

JavaScript (ES6), 118 115 112 102 82 81 byte

Đã lưu 1 byte nhờ vào ETHproductions

Giá trị được chọn:

00 01 02 03 04 05 06 07 08 09 0a 0b 0c 0d 0e 0f 10 11 12 13 14 15
-----------------------------------------------------------------
10 10 11 14 10 10 15 15 11 14 10 10 15 15 11 14 10 10 15 15 10 11

• Nhắc về giới hạn dưới, sau đó cho giới hạn trên (ví dụ 0x04/ 0x0f).
• Giới hạn dưới không hợp lệ sẽ được hiểu là 0x00(giá trị tối thiểu).
• Giới hạn trên không hợp lệ sẽ được hiểu là 0x15(giá trị tối đa).
• Đầu ra không có gì nếu giới hạn dưới lớn hơn giới hạn trên.

alert((1/7+'789').replace(/./g,(v,i)=>i<a|i>b?'':(v|10)+' ',p=prompt,b=p(a=p())))

Phiên bản trước (97 byte)

Tạo danh sách giả ngẫu nhiên các giá trị thập lục phân 'đúng':

alert((1/7+'789').replace(/./g,(v,i)=>i<a|i>b?'':(v*7|16).toString(16)+' ',p=prompt,a=p(),b=p()))

Sự nối tiếp:

10 10 17 1c 1e 38 33 31 17 1c 1e 38 33 31 17 1c 1e 38 33 31 38 3f

JavaScript (ES6), 107 152 137 byte

p=prompt,f=(a=+p(),b=+p(),[x,y,...s]='FFF4B6D7402011A4F0D0FF3D9C2165C4A22890E7D6A5')=>a?f(a-1,b-1,s):x+y+' '+(b?f(a,b-1,s):'');alert(f())

var
   p=prompt,f=(a=+p(),b=+p(),[x,y,...s]='FFF4B6D7402011A4F0D0FF3D9C2165C4A22890E7D6A5')=>a?f(a-1,b-1,s):x+y+' '+(b?f(a,b-1,s):'');alert(f())
;

//input 0x04 then 0x14 will print 40 to D6
//input 0x00 then 0x00 will print FF
//input 0x13 then 0x17 will print E7 D6 A5 NaN NaN

Giá trị được chọn:

FF F4 B6 D7 40 20 11 A4 F0 D0 FF 3D 9C 21 65 C4 A2 28 90 E7 D6 A5

Đầu vào:

• Định dạng đầu vào là 0x14
• Nếu bất kỳ đầu vào nào là âm hoặc đầu vào thứ 1 lớn hơn đầu vào thứ 2: InternalError: too much recursion
• Sẽ in NaNra ngoài giới hạn.

Các giải pháp trước đây:
152 byte:

i=parseInt,p=prompt,f=(a=i(p()),b=i(p()),[x,y,...s]='FFF4B6D7402011A4F0D0FF3D9C2165C4A22890E7D6A5')=>a?f(a-1,b-1,s):x+y+' '+(b?f(a,b-1,s):'');alert(f())

107 byte, giải pháp không hợp lệ (thiếu đầu vào):

f=(a,b,[x,y,...s]='FFF4B6D7402011A4F0D0FF3D9C2165C4A22890E7D6A5')=>a?f(a-1,b-1,s):x+y+' '+(b?f(a,b-1,s):'')

Python, 88 87 86 byte

Lưu 1 byte nhờ @Jonathan ALLan
Lưu lại 1 byte vào @Jonathan ALLan

Cũng thay đổi cơ sở của mã, bây giờ đẹp hơn nhiều.

a,b=[int(x,16)for x in raw_input().split()];l=[0]*22
while a<=b:print"%02x"%l[a],;a+=1

Giá trị được chọn: 00cho tất cả mọi thứ.

Ý tưởng tương tự như câu trả lời C của tôi. Tuy nhiên, lần này, mã lấy một đầu vào từ người dùng, yêu cầu khoảng trắng giữa cả hai giá trị, tách chúng, chuyển chúng thành giá trị hex và in mọi hex trong lmảng bao gồm và giữa hai giá trị được nhập. Vì Python có một hệ thống bắt lỗi tuyệt vời, không có lỗi tràn bộ đệm và do đó mã an toàn hơn nhiều. Chương trình an toàn trước hành vi không xác định theo nghĩa là nó sẽ không thực thi khi giá trị cao hơn được gửi trước giá trị thấp hơn.

Điều này sẽ hoạt động trên cả Python 2.x và 3.x; Vui lòng sửa lại cho tôi nếu tôi sai, vì tôi không có quyền truy cập vào cả hai phiên dịch do hệ thống của tôi không hỗ trợ cả hai.

C ++, 98 95 93 byte

#include <iostream>
int _[22],a,b;int main(){for(std::cin>>a>>b;b/a++;)printf("%02x ",_[a]);}

Giá trị tôi chọn là tất cả 0

Perl, 79 45 41 byte

"Giá trị tối thiểu $ 10" - ví dụ có tối thiểu $ 00- đó có phải là lỗi chính tả không?

Đây là một câu trả lời perl khá nhàm chán trong 41 byte (Đã 46 và sau đó tôi tiếp tục nhìn thấy các khoảng trắng, parens tôi có thể bỏ qua). Đưa đầu vào thành hai dòng.

printf'%02X ',$_ for(4..26)[hex<>..hex<>]

Dữ liệu là danh sách 04..1A

Trước khi tôi quá thông minh với gói & giải nén. Các byte đầu vào của nó được nhập cùng một lúc được làm nhòe với nhau, ví dụ: "020E" sẽ in các mục thứ 2 -14

printf'%02X ',$_ for sub{(4..26)[shift..shift]}->(unpack'CC',pack'H4',<>)

Có thể thử chơi golf nhiều hơn bằng cách sử dụng tất cả 0 substrvà printf'%*vX'... không làm cho câu trả lời của tôi dài hơn. 48 ký tự (sử dụng chuỗi ascii '7', hex 37 làm dữ liệu)

printf'%*vX',' ',substr 7x22,$s=hex<>,1+hex<>-$s

CJam, 22 byte

{r:~Gb}2*37m!s2/\)<>S*

Giá trị được chọn:

00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 10 11 12 13 14 15
-----------------------------------------------------------------
13 76 37 53 09 12 26 34 50 46 31 59 79 58 15 80 90 24 00 00 00 00

Dùng thử trực tuyến

Scala, 45 byte

(_:Int)to(_:Int)map(x=>f"$x%02X")mkString " "

Ung dung:

(a:Int,b:Int)=>a.to(b).map(x=>f"$x%02X").mkString(" ")

Sử dụng 00để FFnhư các giá trị, nhưng công trình lên đến 2147483647.

C, 176 175 161 byte

Tiết kiệm 1 byte nhờ
@Jonathan ALLan Trợ giúp lớn nhờ @Downvoter đã giúp tôi tiết kiệm 14 byte!

int main(){int a[44]={0};char s[2];scanf("%s",s);int b=(int)strtol(s,0,16);scanf("%s",s);int c=(int)strtol(s,0,16);while(b<=c){printf("%d%d ",a[b],a[b+1]);b++;}}

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

Giá trị được chọn: 00cho tất cả mọi thứ.

Câu trả lời không được đánh gôn:

int main() {
    int a[44] = {0};
    char s[2];
    scanf("%s", s);
    int b = (int) strtol(s, 0, 16);
    scanf("%s", s);
    int c = (int) strtol(s, 0, 16);
    while (b <= c) {
        printf("%d%d ", a[b], a[b+1]);
        b++;
    }
}

Thủ thuật cho vấn đề này là sử dụng hai đầu vào và cố gắng chuyển đổi chúng thành các chuỗi thập lục phân và sau đó chuyển sang số nguyên. Vì không có kiểm tra lỗi hoặc bất cứ điều gì tương tự, hành vi không xác định chỉ đơn giản là ném lỗi và phá vỡ chương trình. Người dùng cần nhập hai đầu vào, tuy nhiên trình biên dịch CDT Eclipse của tôi dường như cho phép tôi nhập cả hai đầu vào trên cùng một dòng với khoảng trắng ở giữa.

Chúng phải theo đúng thứ tự, vì yêu cầu giá trị lớn hơn trước khi giá trị nhỏ hơn sẽ không chạy while-loop.

Vấn đề là, cũng không có bảo vệ chống tràn bộ đệm, vì vậy tôi có thể chỉ cần yêu cầu một cái gì đó vô lý, chẳng hạn như phạm vi từ $ 0 đến $ FFFF, và tôi sẽ nhận được mọi thứ trong bộ nhớ máy tính của mình từ khi bắt đầu cấp phát bộ nhớ cho a[44]mảng , tất cả các cách để 65536 giá trị sau này.

GNU sed, 209 + 1 (cờ r) = 210 byte

1{h
s:.*:,00 FF,01 F4,02 B6,03 D7,04 40,05 00,06 00,07 A4,08 F0,09 00,0A FF,0B 0D,0C 9C,0D 21,0E 65,0F C4,10 02,11 28,12 90,13 E7,14 D6,15 A5:
H;d}
G;s:\n(.*)\n.*(,\1.*):\n\2:
s:(.*)\n(.*,\1 ..).*:\2:
s:,..::g

Hãy thử trực tuyến! Một không gian hàng đầu có mặt trong đầu ra, tôi hy vọng nó được cho phép.

Chạy ví dụ:

me@LCARS:/PPCG$ echo -e "06\n0F" | sed -rf table_lookup.sed
 00 A4 F0 00 FF 0D 9C 21 65 C4
me@LCARS:/PPCG$ echo -e "13\n13" | sed -rf table_lookup.sed
 E7

Giải thích: 22 giá trị thập lục phân được lưu trữ giống như các giá trị từ ví dụ của OP

value | FF F4 B6 D7 40 00 00 A4 F0 00 FF 0D 9C 21 65 C4 02 28 90 E7 D6 A5
-------------------------------------------------------------------------
index | 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 10 11 12 13 14 15

Các chỉ mục bắt đầu và kết thúc được đọc trên các dòng riêng biệt. Đầu ra là một dòng duy nhất với các giá trị bảng trong phạm vi chỉ mục đó (đã bao gồm). Đầu vào không xác định sẽ ghi nhiều dòng đầu ra không hợp lệ.

# store START index in hold space
1{h
# generate the table
s:.*:,INDEX1 VALUE1,INDEX2 VALUE2,°°°:
# append table to hold space and delete pattern space
H;d}
# read END index, append hold space (pattern space format is: END\nSTART\nTABLE)
G
# delete table entries up to, but excluding, the START index (END\nTABLE')
s:\n(.*)\n.*(,\1.*):\n\2:
# delete table entries starting from, but excluding, the END index (TABLE'')
s:(.*)\n(.*,\1 ..).*:\2:
# remove the indexes and print (implicitly) the resulting values
s:,..::g

PHP, 106 105 104 96 + 2 byte

eval($s='for($a=a;$a++<c;)$$a=hexdec($argv[++$i]);while($b<=$c)printf("%02X ",ord($s[$b++]));');

hoặc là

eval($s='for($a=a;$a++<c;)$$a=hexdec($argv[++$i]);');while($b<=$c)printf("%02X ",ord($s[$b++]));

Chạy với php -nr '<code>' <lowindex> <highindex>; thoát các dấu ngoặc đơn trong mã.
... Hoặc kiểm tra trực tuyến .

dechexdiễn giải đầu vào dưới dạng các chuỗi thập lục phân cho đến các ký tự là các chữ số hex,
0nếu đầu vào bắt đầu bằng một số khác.

không in gì nếu giá trị thứ nhất lớn hơn giây.

các giá trị được chọn:

00 01 02 03 04 05 06 07 08 09 0a 0b 0c 0d 0e 0f 10 11 12 13 14 15
-----------------------------------------------------------------
66 6F 72 28 24 61 3D 61 3B 24 61 2B 2B 3C 63 3B 29 24 24 61 3D 68

(22 mã ascii đầu tiên của mã được thực thi)

hoặc là

for($a=a;$a++<c;)eval($s='$$a=hexdec($argv[++$i]);');while($b<=$c)printf("%02X ",ord($s[$b++]));

với các giá trị sau:

00 01 02 03 04 05 06 07 08 09 0a 0b 0c 0d 0e 0f 10 11 12 13 14 15
-----------------------------------------------------------------
24 24 61 3D 68 65 78 64 65 63 28 24 61 72 67 76 5B 2B 2B 24 69 5D 

Lắp ráp Apple II 6502, 75 byte

Mã byte:

A9 46 85 36 A9 10 85 37 A0 00 98 20 DA FD A9 A0 
20 ED FD C0 42 D0 F3 20 93 FE A2 FC 20 1B FD 9D 
04 01 E8 D0 F7 86 31 A9 8D 8D 04 02 20 A7 FF B5 
3C 0A 75 3C 95 3C CA 10 F6 A6 3D BD 05 02 20 ED 
FD E8 E4 3C D0 F5 99 05 02 C8 60

Tháo gỡ:

  LDA    #<+
  STA    CSWL
  LDA    #>+
  STA    CSWH    ;redirect stdout
  LDY    #$00
- TYA
  JSR    PRBYTE  ;print number
  LDA    #$A0    ;space
  JSR    COUT    ;print space
  CPY    #$42    ;22*3
  BNE    -
  JSR    SETVID  ;restore stdout
  LDX    #$FC
- JSR    KEYIN   ;fetch a key
  STA    $0104,X ;store to $200+
  INX
  BNE    -       ;four keys
  STX    MODE    ;set internal flags
  LDA    #$8D
  STA    $0204   ;set key delimiter
  JSR    GETNUM  ;convert keys to hex values
- LDA    A1L,X   ;fetch value
  ASL
  ADC    A1L,X   ;multiply by 3
  STA    A1L,X   ;store value
  DEX
  BPL    -       ;both inputs
  LDX    A1H     ;first input
- LDA    $0205,X ;fetch from index
  JSR    COUT    ;print character
  INX
  CPX    A1L
  BNE    -       ;until second input
+ STA    $0205,Y ;fall through to save a byte
  INY
  RTS

Nó tạo thành một mảng trong bộ nhớ trông giống như đầu ra. Các giá trị được chọn là:

00 01 02 03 04 05 06 07 08 09 0a 0b 0c 0d 0e 0f 10 11 12 13 14 15
-----------------------------------------------------------------
00 03 06 09 0C 0F 12 15 18 1B 1E 21 24 27 2A 2D 30 33 36 39 3C 3F

Người dùng nhấn bốn phím để đặt đầu vào.