Cho đầu vào số nguyên không âm, hãy viết chương trình chuyển đổi số thành thập lục phân và trả về giá trị trung thực nếu dạng thập lục phân của số chỉ chứa các ký tự Athông qua Fvà giá trị falsey khác.

Các trường hợp thử nghiệm

10
==> True (A in hexadecimal)

100
==> False (64 in hexadecimal)

161
==> False (A1 in hexadecimal)

11259375
==> True (ABCDEF in hexadecimal)

0
==> False (0 in hexadecimal)

Phần thưởng: -40 byte nếu chương trình của bạn in Only letterscho thử thách được mô tả ở trên, Only numbersnếu phiên bản thập lục phân của số chỉ chứa các chữ số 0-9và Mixnếu số thập lục phân chứa ít nhất một số và ít nhất một chữ cái.

Đây là mã golf. Quy tắc tiêu chuẩn áp dụng. Mã ngắn nhất trong byte thắng. Chức năng hoặc chương trình đầy đủ được cho phép.

Pyth, 43 - 40 = 3 byte

?&K@J.HQG-JG"Mix"%"Only %sers"?K"lett""numb

Bộ kiểm tra

Điều này đạt được tiền thưởng. Only numbersvà Only lettersmay mắn thay chỉ khác nhau bởi 4 chữ cái. định dạng kiểu printf được sử dụng với %.

Hệ thống lựa chọn được thực hiện bằng cách lấy cả giao điểm của hex với G, bảng chữ cái và trừ đi G. Nếu không kết thúc sai, đó là một hỗn hợp, trong khi nếu giao lộ là giả, đó là số và nếu phép trừ là giả, đó là chữ cái.

Bình thường, 6 byte

!-.HQG

  .HQ   # Converts the input to hexadecimal
 -   G  # Deletes all letters
!       # If empty, output True, else False

Kiểm tra nó ở đây

Thạch , 6 byte

b16>9P

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

Làm thế nào nó hoạt động

b16>9P  Input: z

b16     Convert the input to base 16.
   >9   Compare each resulting digit with 9; return 1 iff greater.
     P  Take the product of the resulting Booleans.

TeaScript , 11 byte 13 15 16

xT(16)O(Sz)

Khá đơn giản. Điều này sử dụng TeaScript 2.0. Bạn có thể lấy phiên bản này từ Github

Giải trình

        // Implicit: x = input, Sz = alphabet
xT(16)  // input -> hex
O(Sz)   // Only letters?

Dùng thử trực tuyến (phiên bản sửa đổi một chút hoạt động trên web)

Python, 24 byte

lambda n:min('%x'%n)>'9'

Chuyển đổi đầu vào một chuỗi hex (không có 0xtiền tố) với '%x'%n. Xem nếu tất cả các ký tự của nó lớn hơn '9'(chữ cái nào) bằng cách xem nếu minở trên '9'.

TOÁN , 10

i16YA1Y2mA

Ví dụ

>> matl i16YA1Y2mA
> 240
0
>> matl i16YA1Y2mA
> 255
1

Giải trình

i       % input                         
16YA    % convert to string representation in base 16
1Y2     % predefined literal: 'A':'Z'
m       % true for set member             
A       % all

Thử thách tiền thưởng: 53−40 = 13

i16YA1Y2mXKA?'Only letters'}Ka?'Mix'}'Only numbers']]

Ví dụ

>> matl
 > i16YA1Y2mXKA?'Only letters'}Ka?'Mix'}'Only numbers']]
 > 
> 255
Only letters

>> matl
 > i16YA1Y2mXKA?'Only letters'}Ka?'Mix'}'Only numbers']]
 > 
> 100
Only numbers

>> matl
 > i16YA1Y2mXKA?'Only letters'}Ka?'Mix'}'Only numbers']]
 > 
> 240
Mix

Giải trình

i                       % input                                                 
16YA                    % convert integer to string representation in base 16
1Y2                     % predefined literal: 'A':'Z'
m                       % true for set member       
XK                      % copy to clipboard K                 
A                       % all                                   
?                       % if (top of the stack)                 
  'Only letters'        % string literal                                        
}                       % else                 
  K                     % paste from clipboard K      
  a                     % any                
  ?                     % if (top of the stack)      
    'Mix'               % string literal    
  }                     % else                                                  
    'Only numbers'      % string literal           
  ]                     % end             
]                       % end          

LabVIEW, 52-40 = 12 LabVIEW Nguyên thủy

Khen ngợi những người xây dựng!

C, 46 43 37 byte

Bây giờ với đệ quy nhiều hơn! (Cảm ơn Dennis):

F(x){return(x%16>9)*(x<16?:F(x/16));}

Phần thưởng: thậm chí ngắn hơn (33 byte), nhưng không thành công cho x = 0:

F(x){return!x?:(x%16>9)*F(x/16);}

b;F(x){for(b=x;x;x/=16)b*=x%16>9;return b;}

F()mất một intvà trả về 0(sai) hoặc khác không (đúng).

Tôi thậm chí đã không cố gắng để đạt được tiền thưởng, chỉ "MixOnly lettersnumbers"mất 23 byte, theo dõi điều kiện mới sẽ cần thêm 9 byte, printf()là 8 byte, cộng thêm tối đa 40, vô hiệu hóa nỗ lực.

Kiểm tra chính:

#include <stdio.h>

int main() {
  int testdata[] = {10, 100, 161, 11259375, 0};
  for (int i = 0; i < 5; ++i) {
    int d = testdata[i];
    printf("%d (0x%x) -> %s\n", d, d, F(d)?"yep":"nope");
  }
}

Python 3, 30 29 byte

1 byte bị tước nhờ sysreq và Python 3.

lambda n:hex(n)[2:].isalpha()

Đơn giản lambdavà cắt lát.

Perl 6 , 18 byte

{.base(16)!~~/\d/} # 18 bytes

sử dụng:

# give it a name
my &code = {.base(16)!~~/\d/}

for 10, 100, 161, 11259375, 0 {
  printf "%8s %6s %s\n", $_, .base(16), .&code
}

      10      A True
     100     64 False
     161     A1 False
11259375 ABCDEF True
       0      0 False

Toán học, 32 byte

Tr@DigitCount[#,16,0~Range~9]<1&

Giải trình:

                               &   A function returning whether
Tr@                                 the sum of elements of
   DigitCount[ ,  ,         ]        the numbers of
                   0~Range~9          zeros, ones, ..., nines in
                16                    the hexadecimal expansion of
              #                       the first argument
                             <1     is less than one.

Javascript, ES6, không có biểu thức chính quy, 28 byte

F=n=>n%16>9&&(n<16||F(n>>4))

Cũng có phiên bản 27 byte này nhưng nó trả về giá trị nghịch đảo.

F=n=>n%16<10||n>15&&F(n>>4)

Julia, 18 byte

n->isalpha(hex(n))

Đây là một hàm ẩn danh chấp nhận một số nguyên và trả về một boolean. Để gọi nó, đặt tên cho nó, vd f=n->....

Đầu vào được chuyển đổi thành một chuỗi thập lục phân bằng cách sử dụng hex, sau đó chúng tôi kiểm tra xem nó có bao gồm các ký tự chữ cái hay không isalpha.

JavaScript ES6, 29

Không có tiền thưởng

n=>!/\d/.test(n.toString(16))

Với giá trị mới là -40 , phần thưởng gần hơn ... nhưng không đủ. Điểm thưởng 70 71 - 40 => 30 31

n=>/\d/.test(n=n.toString(16))?1/n?'Only numbers':'Mix':'Only letters'

Kiểm tra đoạn mã (nhập một số bên trong hộp nhập)

#I { width:50%}

<input id=I oninput="test()"/><br>
Hex <span id=H></span><br>
Result <span id=R></span>

GS2 , 6 byte

V↔i/◙s

Mã nguồn sử dụng mã hóa CP437. Hãy thử trực tuyến!

Làm thế nào nó hoạt động

V       Evaluate the input.
 ↔      Push 16.
  i     Perform base conversion.
   /    Sort.
    ◙   Push [10].
     s  Perform greater-or-equal comparison.

Octave, 22 byte

@(n)all(dec2hex(n)>64)

Java, 46 44 38 byte

i->i.toHexString(i).matches("[a-f]+");

Một lớp lót khá đơn giản có thể chuyển đổi số nguyên thành chuỗi thập lục phân và sử dụng biểu thức chính quy để xác định xem tất cả các ký tự có phải là chữ cái không.

-2 byte nhờ @ Eng.Fouad.

CJam ( 9 8 byte)

{GbA,&!}

Bản demo trực tuyến

Ruby, 19 byte

->n{!('%x'%n)[/\d/]}

Ung dung:

-> n {
  !('%x'%n)[/\d/]
}

Sử dụng:

f=->n{!('%x'%n)[/\d/]} # Assigning it to a variable
f[0]
=> false
f[10]
=> true
f[100]
=> false
f[161]
=> false
f[11259375]
=> true

Với tiền thưởng, 70 - 40 = 30 byte

->n{'%x'%n=~/^(\d+)|(\D+)$/;$1?'Only numbers':$2?'Only letters':'Mix'}

Sử dụng:

f=->n{'%x'%n=~/^(\d+)|(\D+)$/;$1?'Only numbers':$2?'Only letters':'Mix'}
f[10]
=> Only letters
f[100]
=> Only numbers
f[161]
=> Mix

Perl, 69 - 40 = 29 byte

$_=sprintf"%X",<>;print s/\d//?$_?"Mix":"Only numbers":"Only letters"

Ceylon, 55 byte

Boolean l(Integer n)=>!any(formatInteger(n,16)*.digit);

Nói một cách đơn giản ... chúng ta định dạng dưới dạng nsố thập lục phân (tạo ra một chuỗi), gọi mỗi ký tự của chuỗi đó là .digitsố (trả về giá trị true nếu đó là một chữ số), sau đó kiểm tra xem có bất kỳ số nào là đúng không, sau đó phủ nhận điều này.

Phiên bản có tiền thưởng có số điểm cao hơn rất nhiều là 119 - 25 = 94 :

String c(Integer n)=>let(s=formatInteger(n),d=s*.digit)(every(d)then"Only numbers"else(any(d)then"Mix"else"Only letters"));

_{Tôi không chắc làm thế nào bất cứ ai có thể làm cho một phiên bản phần thưởng đủ ngắn để tốt hơn phiên bản không có phần thưởng, ngay cả những chuỗi đó chỉ có độ dài 28 cùng nhau. Có lẽ một ngôn ngữ làm cho nó thực sự khó tạo ra một giá trị trung thực / falsey.}

Đây là một phiên bản được định dạng:

String c(Integer n) =>
        let (d = formatInteger(n,16)*.digit)
    (every(d) then "Only numbers"
                else (any(d) then "Mix"
                    else "Only letters"));

Rust, 70 byte

fn f(n:i32)->bool{format!("{:x}",n).chars().all(|c|c.is_alphabetic())}

Bởi vì, bạn biết đấy, Java Rust.

Nó thực sự khá thanh lịch, mặc dù:

format!("{:x}", n)         // format n as hex (:x)
  .chars()                 // get an Iter over the characters
  .all(                    // do all Iter elements satisfy the closure?
    |c| c.is_alphabetic()  // self-explanatory
  )

Nhưng thật xấu hổ khi bản tóm tắt định nghĩa hàm quá dài ....: P

CJam, 44 byte - 40 phần thưởng = 4 byte

2,riGbAf/&:-"Only numbersOnly lettersMix"C/=

Hãy thử nó ở đây ~

Nghiêm túc, 12 byte

4ª,¡OkúOkd-Y

Bãi rác Hex:

34a62cad4f6b
a34f6b642d59

Dùng thử trực tuyến

Nó giống như các câu trả lời ngôn ngữ ngăn xếp khác. Nó sẽ chỉ có 7 byte nếu trừ chuỗi được hỗ trợ nghiêm túc.

EDIT: Nghiêm túc bây giờ hỗ trợ trừ chuỗi và giải pháp 7 byte sau đây hiện hoạt động:

ú4╙,¡-Y

Bãi rác Hex:

a334d32cad2d59

Dùng thử trực tuyến

05AB1E , 2 byte (không cạnh tranh)

Mã số:

ha

Hà! Đó là hai byte! Đáng buồn là không cạnh tranh vì ngôn ngữ này hoãn thách thức :(

Giải trình:

h   # Convert input to hexadecimal
 a  # is_alpha, checks if the value only contains letters

Hãy thử trực tuyến! hoặc Xác minh tất cả các trường hợp thử nghiệm!

Python 3, 28 byte

lambda x:min(hex(x)[1:])>'@'

Lisp thông thường, 40 byte

(every'alpha-char-p(format()"~x"(read)))

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

SmileBASIC 3.2.1, 78 byte

INPUT V FOR I=0 TO 9
IF INSTR(HEX$(V),STR$(I))>-1 THEN ?"FALSE"END
NEXT?"TRUE"

Japt, 12 byte

!UsG r"[a-f]

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

Làm thế nào nó hoạt động

!UsG r"[a-f] // Implicit: U = input integer, G = 16
 UsG         // Convert U to a base-16 string.
     r"[a-f] // Replace all lowercase letters with an empty string.
!            // Take the logical NOT of the result.
             // This returns true for an empty string; false for anything else.

Gema, 41 ký tự

*=@c{@radix{10;16;*}}
c:<D>=f@end;?=;\Z=t

Không có boolean trong Gema, do đó, nó chỉ đơn giản là xuất ra các bản nhạc hay trò chơi.

Chạy mẫu:

bash-4.3$ echo -n '11259375' | gema '*=@c{@radix{10;16;*}};c:<D>=f@end;?=;\Z=t'
t