Bạn tôi và tôi đang làm việc trong một phòng thí nghiệm trong lớp Khoa học Máy tính AP của chúng tôi và quyết định viết mã một trong những vấn đề vì chúng tôi vẫn còn một nửa lớp miễn phí sau khi chúng tôi hoàn thành. Đây là câu hỏi:

Cho một số n, n có chia hết cho mỗi chữ số của nó không?

Ví dụ: 128 sẽ vượt qua bài kiểm tra này - nó chia hết cho 1,2 và 8. Bất kỳ số nào có số 0 sẽ tự động loại bỏ số đó. Mặc dù bạn có thể sử dụng các ngôn ngữ khác và đăng các giải pháp với chúng nếu bạn thích, chúng tôi quan tâm nhất là xem mọi người có thể tạo chương trình bằng Java như thế nào, vì đó là ngôn ngữ chúng tôi sử dụng trong lớp. Cho đến nay, cả hai chúng tôi đều có 51. Đây là mã hiện tại của tôi:

public boolean dividesSelf(int n){for(int p=n;n%10>0;)n/=p%(n%10)>0?.1:10;return n<1;}
// 51 characters

// Breakdown:
// for(int p=n;         Saves one semicolon to put declaration into for loop
// n%10>0;)             Basic check-for-zero
// n/=                  Pretty simple, discarding one number off of n at a time
// p%(n%10)>0?          If p (the given value) is not divisible by n%10 (the current digit)...
// .1:10;               Divide by .1 (multiply by 10) so it fails the check next iteration. If it is divisible, divide by 10 to truncate the last digit
// return n<1           If the number was fully divisible, every digit would be truncated, and n would be 0. Else, there would still be non-zero digits.

Yêu cầu

Chữ ký phương thức có thể là bất cứ điều gì bạn muốn. Chỉ cần đếm cơ thể chức năng. Mặc dù vậy, hãy chắc chắn rằng phương thức trả về giá trị boolean và chỉ truyền vào một tham số số (không phải là một chuỗi).

Mã phải có khả năng vượt qua tất cả các trường hợp này (để giữ đúng hướng của câu hỏi ban đầu, chỉ có giá trị boolean đúng và sai nếu ngôn ngữ hỗ trợ booleans. Nếu và chỉ khi ngôn ngữ của bạn không có biến boolean bạn có thể biểu thị sai với 0 và đúng với bất kỳ số nguyên khác nào (tốt nhất là 1 hoặc -1):

128 -> true
 12 -> true
120 -> false
122 -> true
 13 -> false
 32 -> false
 22 -> true
 42 -> false
212 -> true
213 -> false
162 -> true
204 -> false

Ngoài ra, chúng tôi đã không tính khoảng trắng, vì vậy hãy thoải mái làm điều tương tự, trừ khi khoảng trắng là điều cần thiết cho hoạt động của chương trình (vì vậy các dòng mới trong Java không được tính, nhưng một khoảng trống giữa intvà x=1không được tính.) Chúc may mắn !

Perl 6, 13

sub golf($_) {
   $_%%.comb.all
}

Sử dụng biến ẩn $_- $_ %% .comb.alltương đương với $_ %% all($_.comb). %%là toán tử "là chia hết" và combkhông có đối số bổ sung nào trả về danh sách các ký tự trong chuỗi. Ví dụ: nếu đối số là 123, thì hàm sẽ đánh giá

123 %% all(123.comb)

đó là

123 %% all(1, 2, 3)

ngã ba tự động làm cho nó

all(123 %% 1, 123 %% 2, 123 %% 3)

đó là

all(True, False, True)

đó là sai trong bối cảnh boolean bởi vì đó là một ngã ba "tất cả" và rõ ràng không phải tất cả các yếu tố của nó là đúng.

Có thể ép buộc giá trị trả về Boolvà ẩn mối nối với người gọi bằng cách tạo chữ ký hàm sub golf($_ --> Bool()), nhưng các ép buộc trong chữ ký hàm chưa hoạt động trong Rakudo. Giá trị trả về vẫn đúng hoặc sai, chỉ là không Truehoặc False.

C # và System.Linq - 26/40

Theo các quy tắc, không tính khai báo phương thức.

bool dividesSelf(int i) { 
    return(i+"").All(d=>i%(d-48d)<1);
}

Cho thấy một lần nữa, C # là lựa chọn ưu việt khi Java đang được xem xét ... Tôi là đứa trẻ, tôi là đứa trẻ!

Thật không may, chức năng này (và nhiều câu trả lời khác) sẽ không tạo ra kết quả chính xác cho đầu vào tiêu cực. Chúng tôi có thể khắc phục điều này, nhưng giải pháp mất rất nhiều sức hấp dẫn của nó (và tăng lên 46 ký tự):

return(i+"").All(d=>d>48&&i%(d-48)==0||d==45);

Chỉnh sửa : xóa một ký tự với đề xuất của Tim.

Chỉnh sửa : với việc giới thiệu các thành viên thân thể biểu hiện trong C # 6, chúng ta có thể giảm bớt điều này bằng cách cắt bỏ return:

bool dividesSelf(int i) =>
    (i+"").All(d=>i%(d-48d)<1);

với tổng số 26 ký tự (theo ý kiến ​​của tôi, =>không nên bao gồm nhiều hơn số lần niềng răng). Phiên bản xử lý số âm có thể được rút ngắn tương tự.

APL ( 13 11)

{0∧.=⍵|⍨⍎¨⍕⍵}

Giải trình:

• ⍎¨⍕⍵: đánh giá từng ký tự trong biểu diễn chuỗi của ⍵
• ⍵|⍨: cho mỗi cái, tìm modulo của nó và ⍵
• 0∧.=: xem liệu tất cả những thứ đó có bằng 0

Testcase:

      N,[.5] {0∧.=⍵|⍨⍎¨⍕⍵} ¨ N←128 12 120 122 13 32 22 42 212 213 162 204
128 12 120 122 13 32 22 42 212 213 162 204
  1  1   0   1  0  0  1  0   1   0   1   0

Python 2: 43 ký tự

f=lambda n:any(n%(int(d)or.3)for d in`n`)<1

Kiểm tra xem số có bất kỳ số dư nào không thay đổi modulo các chữ số của nó hay không và đưa ra phủ định của số đó. Các chữ số 0 được xử lý một cách kỳ lạ: vì tính toán %0gây ra lỗi, các chữ số 0được thay thế bằng .3, dường như luôn cho kết quả khác không do các điểm không chính xác.

Cơ thể chức năng là 32 ký tự.

Perl - 27 byte

sub dividesSelf{
    $_=pop;s/./!$&||$_%$&/ger<1
}

Không tính chữ ký chức năng, theo hướng dẫn.

Sử dụng mẫu:

use Data::Dump qw(dump);
for $i (128, 12, 120, 122, 13, 32, 22, 42, 212, 213, 162, 204) {
  printf "%3d -> %s\n", $i, dump(dividesSelf $i);
}

Đầu ra mẫu:

128 -> 1
 12 -> 1
120 -> ""
122 -> 1
 13 -> ""
 32 -> ""
 22 -> 1
 42 -> ""
212 -> 1
213 -> ""
162 -> 1
204 -> ""

Giải quyết đặc tả vấn đề: "Chỉ tính giá trị boolean đúng và sai. Giá trị thật / falsey không được tính."

use Data::Dump qw(dump);
dump(1 == 1);
dump(0 == 1);

Đầu ra:

1
""

'Đúng' và 'Sai' được định nghĩa là 1và "".

Erratum:
Như Brad Gilbert đã chỉ ra một cách đúng đắn , perl định nghĩa đúng là một vô hướng vừa là số nguyên 1vừa là chuỗi "1"và sai là một số vô hướng đồng thời là số nguyên 0và chuỗi "".

CJam, 11 10 byte

{
    _Ab:df%:+!
}:F;

Điều này xác định một chức năng được đặt tên Fvà loại bỏ khối khỏi ngăn xếp.

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

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

$ cjam <(echo '{_Ab:df%:+!}:F;[128 12 120 122 13 32 22 42 212 213 162 204]{F}%p')
[1 1 0 1 0 0 1 0 1 0 1 0]

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

_      " Copy the integer on the stack.                                          ";
Ab     " Push the array of its digits in base 10.                                ";
:d     " Cast each digit to Double.                                              ";
f%     " Take the integer on the stack modulus each of its digits.               ";
:+     " Add the results.                                                        ";
!      " Push the logical NOT of the sum.                                        ";

JavaScript ES6, 39 32 28 byte

v=>[...""+v].every(x=>v%x<1)

Cảm ơn core1024 cho những gợi ý để thay thế (""+v).split("")với [...""+v], và openorclose cho thấy việc sử dụng các everychức năng.

Câu trả lời hiện không chứa một bit mã của tôi: O

Giải pháp trước

v=>[...""+v].filter(x=>v%x|!+x)==""

==""không phải là một cách hợp lệ để kiểm tra xem một mảng có trống không, vì [""]==""trả về true, nhưng mảng được đảm bảo chứa chuỗi không trống, vì vậy nó hoạt động ở đây.

Phần còn lại là chuyển đổi loại tốc ký khá chuẩn trong JavaScript.

Java 8, 46 byte (thân phương thức)

Sử dụng chuyển đổi của Jeroen Mostert để lừa đôi.

public static boolean dividesSelf(int n) {
    return(""+n).chars().allMatch(x->n%(x-48d)<1);
}

Bình thường, 12 byte

!f|!vT%vzvTz

Cái này lọc các ký tự trong chuỗi thành 0 ( !vT) hoặc không chia đầu vào ( %vzvT), sau đó lấy logic không phải của danh sách kết quả.

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

Ruby, 44 byte (thân hàm: 37)

Có lẽ có tiềm năng để được chơi golf hơn nữa.

f=->n{n.to_s.chars.all?{|x|x>?0&&n%x.hex<1}}

Đầu vào được thực hiện thông qua chức năng f. Ví dụ sử dụng:

f[128] # => true
f[12]  # => true
f[120] # => false
...

Python - 59 50 49 47 byte

f=lambda n:all(c>'0'and 0==n%int(c)for c in`n`)

Tôi chắc chắn có một cách nhanh hơn ... oh tốt.

Chỉnh sửa - Cảm ơn FryAmTheEggman về các mẹo chơi gôn.

Chỉnh sửa 2 - FryAmTheEggman cũng có thể đã viết điều này vào thời điểm này, rất tiếc

Chỉnh sửa 3 - Giơ tay nếu bạn thậm chí không biết genexps là một thứ. ...Chỉ mình tôi?

Số 11

!f%Q|vT.3`Q

Điều này kết hợp câu trả lời của @ isaacg và @ xnor . Nó lọc các chữ số từ đầu vào bằng cách kiểm tra giá trị của input % (eval(current_digit) or .3). Sau đó, nó kiểm tra xem chuỗi kết quả có trống hay không.

Đã qua một vài biến thể có cùng chiều dài khác:

!f%Q|T.3jQT
!f|!T%QTjQT

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

Bash + coreutils, 44 byte

Định nghĩa chức năng đầy đủ là:

f()((`tr 0-9 \10<<<$1``sed "s/./||$1%&/g"<<<$1`))

Tôi không chắc làm thế nào để chấm điểm này vì các hàm shell thông thường sử dụng một bộ duy nhất {}hoặc ()để chứa thân hàm. Tôi tìm thấy ở đây tôi cũng có thể sử dụng gấp đôi (())để chứa phần thân hàm gây ra sự mở rộng số học, đây là thứ tôi cần ở đây. Vì vậy, bây giờ tôi chỉ đếm một cặp trong số các dấu ngoặc đó - thảo luận thêm về điều này được chào đón.

Đầu ra:

$ for i in 128 12 120 122 13 32 22 42 212 213 162 204; do f $i; printf "%d " $?; done
1 1 0 1 0 0 1 0 1 0 1 0 $
$

J - 14 char

Cơ thể chức năng là phần sau =:. Nếu chúng ta muốn giảm thiểu số lượng ký tự cho toàn bộ chức năng, đó là 15 char */@(0=,.&.":|]).

f=:0*/@:=,.&.":|]

,.&.":là cách ngắn nhất trong J để mở rộng dưới dạng số thành một danh sách các chữ số thập phân của nó: chuyển đổi thành chuỗi, tách các chữ số và chuyển đổi mỗi chữ số trở lại thành một số. ,.&.":|]lấy số đầu vào ( ]) modulo ( |) các chữ số đó. 0*/@:=trả về true nếu tất cả các kết quả là 0, khác sẽ cho sai.

   f 162
1
   f every 204 212 213
0 1 0

Java - 121 102 97 79 78 byte

Tôi chỉ biết điều này sẽ bị tắc nghẽn sau này. Ồ tốt

boolean b(int a){int m=10,j,t=1;for(;m<a*10;m*=10){j=10*(a%m)/m;if(j==0||a%j>0)t=0;}return t>0;}

Tôi sẽ trở lại.

Haskell - 100 54 38

f x=all(\y->y>'0'&&x`mod`read[y]<1)$show x

Vẫn đang học, phê bình đánh giá cao

CJam, 15 byte

{_Abf{_g{%}*}:|!}

Đây là một khối, thứ gần nhất với một chức năng trong CJam. Tôi chỉ đếm cơ thể (tức là bỏ qua niềng răng). Bạn có thể sử dụng nó như sau:

128{_Abf{_g{%}*}:|!}~

Hoặc nếu bạn muốn kiểm tra một loạt các đầu vào, bạn có thể làm

[128 12 120 122 13 32 22 42 212 213 162 204]{{_Abf{_g{%}*}:|!}~}%

Khối rời 0(giả) hoặc 1(trung thực) trên ngăn xếp để chỉ ra kết quả. (CJam không có loại Boolean.)

Kiểm tra nó ở đây.

Giải trình:

_               "Duplicate input.";
 Ab             "Get base-10 digits.";
   f{      }    "This maps the block onto the list of digits, supplying the input each time.";
     _g         "Duplicate digit, get signum S (0 or 1).";
       { }*     "Repeat this block S times.";
        %       "Take input modulo digit.";
                "This leaves an array of zeroes for divisible digits, non-zeroes
                 for non-divisible digits, and non-zero junk for zeroes.";
            :|  "Fold OR onto this list. One could also sum the list with :+";
              ! "Logical NOT. Turns 0 into 1, and non-zero values into 0.";

Thay thế, cũng 15 byte

{:XAb{X\_X)?%},!}

Giải trình

:X              "Store input in X.";
  Ab            "Get base-10 digits.";
    {       },  "Filter this list by the result of the block.";
     X\         "Push another copy of X, swap with digit.";
       _        "Duplicate digit.";
        X)      "Push X+1.";
          ?     "Select digit itself or X+1, depending on whether digit is 0 or not.";
           %    "Take modulo. X%(X+1) will always be nonzero for positive integers.";
              ! "Logical NOT. Turns an empty list into 1 and a non-empty list into 0.";

CJam, 15 byte

{_Abf{_{%}1?}1b!}

{}là thứ gần nhất với một chức năng trong CJam. Tôi chỉ đang đếm cơ thể của chức năng

Sử dụng nó như thế này:

128{_Abf{_{%}1?}1b!}~

Để có được một trong hai 1(nếu số đó chia hết) hoặc 0(nếu số đó không chia hết cho các chữ số của nó).

Dùng thử trực tuyến tại đây

Giải trình

_Ab                "Copy the number and split it to its digits";
   f{      }       "For each digit, run this code block on the number";
     _{%}1?        "If the digit is 0, put 1, otherwise perform number modulus digit";
            1b     "We now have an array of modulus corresponding to each digit. Sum it up";
              !    "Negate the sum. If all digits were divisible, sum of modules will be"
                   "0, thus answer should be 1 and vice versa";

C89, 43 byte

unsigned char d(int n, int c) {
        int a=n%10;return!n||a&&!(c%a)&&d(n/10,c);
}

C89 không có kiểu boolean. Hy vọng rằng hoạt động. Ngoài ra tôi đã sử dụng một tham số thứ hai để truyền một bản sao của số gốc thông qua ngăn xếp, nhưng định nghĩa có thể là bất cứ điều gì. Để có kết quả chính xác, bạn chỉ cần gọi hàm có cùng giá trị cho cả hai tham số ( d(128, 128)).

EDIT: Ứng dụng chỉnh sửa được đề xuất bởi người dùng ẩn danh

C11 - 44 byte trong cơ thể chức năng

Một phiên bản C khác, không đệ quy và không có ngoại lệ dấu phẩy động.

bool digit_multiple(int i)
{
    for(int n=i;i%10&&n%(i%10)<1;i/=10);return!i;
}

Điều này cũng sẽ hoạt động trong C ++, Java và hầu hết các ngôn ngữ giống C khác.

Chỉnh sửa để bao gồm cải thiện nhận xét của primo.

Julia 32 25 23

Cải thiện bằng chữ số

Cũng khắc phục sự cố với số âm

selfDivides(x)=sum(x%digits(x).^1.)==0

Phương pháp cũ

Tất cả các chữ số chia nếu tổng của tất cả các phần dư là 0. Giống như các số khác, có vấn đề với các số âm.

selfDivides(x)=sum(x.%(Float64["$x"...]-48))==0

Đầu ra

[selfDivides(x) for x in [128,12,120,122,13,32,22,42,212,213,162,204]]
12-element Array{Any,1}:
  true
  true
 false
  true
 false
 false
  true
 false
  true
 false
  true
 false

Phương pháp cải tiến cũng xử lý BigInt

selfDivides(BigInt(11111111111111111111111111111111111111112))
true

Tuy nhiên

selfDivides(BigInt(11111111111111111111111111111111111111113))
false

bởi vì

BigInt(11111111111111111111111111111111111111113) %3
1

C / C ++, 58 byte (44 trong cơ thể)

Gọi hành vi không xác định (xem bình luận)

int d(int i){int j=i;while(i&&!(j%(i%10)))i/=10;return!i;}

truevà false là 1 và 0, nhưng vui lòng thêm một ký tự vào chữ ký để trả về a bool.

Và để giải trí, một phiên bản đệ quy nhỏ hơn nếu bạn cho phép các cuộc gọi có hình thức r(128,128)

Chỉnh sửa : Bây giờ không được phép bởi các quy tắc:

int r(int i,int j){return!i||!(j%(i%10))&&r(i/10,j);}

R: 72 67 65

Chức năng

f<-function(a)!(anyNA(a%%(d=as.double(strsplit(paste0(a),"")[[1]])))|sum(a%%d))

Cảm ơn @AlexA và @plannapus vì sự tiết kiệm

Chạy thử nghiệm

i=c(128,12,120,122,13,32,22,42,212,213,162,204)
for(a in i){print(f(a))}
[1] TRUE
[1] TRUE
[1] FALSE
[1] TRUE
[1] FALSE
[1] FALSE
[1] TRUE
[1] FALSE
[1] TRUE
[1] FALSE
[1] TRUE
[1] FALSE

GNU Awk: 53 ký tự

Phần được tính:

for(;++i<=split($1,a,//);)r=r||!a[i]||v%a[i];return!r

Toàn bộ chức năng:

function self_divisible(v, i, r)
{
    for (; ++i <= split($1, a, //); )
        r = r || ! a[i] || v % a[i]

    return ! r
}

Vì Awk không có giá trị boolean, trả về 1 tor true và 0 cho false.

JavaScript (ES6) 30

Chức năng với một tham số số. Sử dụng% và phép trừ, không cần trường hợp đặc biệt '0' vì 0% 0 là NaN trong JavaScript.

Chỉnh sửa đã lưu 1 char thx DocMax

F=n=>[for(d of t=n+'')t-=n%d]&&t==n 

Chỉ để cho vui, lạm dụng quy tắc về việc không tính chữ ký hàm, 4

Check=(n,t=n+'',q=[for(d of t)n-=t%d])=>t==n

Kiểm tra trong bảng điều khiển FireFox / FireBug

console.log([128, 12, 120, 122, 13, 32, 22, 42, 212, 213, 162, 204]
.map(x=>+x + ' -> ' + F(x)).join('\n'))

Đầu ra

128 -> true
12 -> true
120 -> false
122 -> true
13 -> false
32 -> false
22 -> true
42 -> false
212 -> true
213 -> false
162 -> true
204 -> false

PHP: 85 byte (64 byte trên cơ thể)

Để chức năng này hoạt động, chỉ cần truyền một chuỗi hoặc một số.

0 sẽ trả lại sai.

Mật mã:

function f($n,$i=0){for($n.='';$n[$i]&&$t=!($n%$n[$i++]););return$t&&$i==strlen($n);}

Xin vui lòng, KHÔNG THIẾT LẬP PARAMETER 2ND!

Javascript: 76 byte (61 byte trên cơ thể)

Đây là một bản viết lại của chức năng trước đó.

Không có nhiều thay đổi giữa cả hai phiên bản.

Đây là mã:

function f(n){for(i=0,n+='';n[i]/1&&(t=!(n%n[i++])););return t&&i==n.length}

Đa âm: Javascript + PHP 187 217 byte (76 84 byte mà không cần soạn sẵn):

Tại sao tôi làm nó?

Vì lý do và có lẽ vì tôi có thể!

Chỉ cần bỏ qua lỗi trên PHP: dù sao nó cũng hoạt động!
Không còn cần thiết, điều này đã được sửa bằng cách xóa 3 byte.

Đây là kiệt tác:

if('\0'=="\0"){function strlen($s){return $s['length'];}}
function toString(){return'';}
function f($n){for($i=0,$n=$n.toString();$n[$i]/1&&($t=!($n%$n[$i++])););return $t&&$i==strlen($n);}

Bạn có thể chạy mã này cả trên bảng điều khiển và trên trình thông dịch PHP!

Phiên bản cũ:

if('\0'=="\0"){function strlen($s){return $s['length'];}}
function s($s){return('\0'=="\0")?$s+'':str_replace('','',$s);}
function f($n,$i){for($i=0,$n=s($n);$n[$i]/1&&($t=!($n%$n[$i++])););return $t&&$i==strlen($n);}

Octave, 33 (39 bao gồm thiết lập chức năng)

Sử dụng chuyển đổi từ ma trận sang ma trận:

f=@(a)sum(mod(a./(num2str(a)-48),1))==0

Chia số theo từng phần tử cho ma trận X, trong đó X được tạo bằng cách chuyển đổi số thành chuỗi và trừ 48 để chuyển từ giá trị ASCII sang số một lần nữa. Lấy modulo 1 để lấy phần thập phân của mỗi phép chia, xác nhận rằng tất cả các số này đều bằng 0 (nếu có là NaN vì / 0, tổng sẽ là NaN và do đó không phải là 0).

Nhập mẫu bằng cách sử dụng www.octave-online.net:

f=@(a)sum(mod(a./(num2str(a)-48),1))==0
for j=[128,12,120,122,13,32,22,42,212,213,162,204]
f(j)
end

Đầu ra:

ans =  1
ans =  1
ans = 0
ans =  1
ans = 0
ans = 0
ans =  1
ans = 0
ans =  1
ans = 0
ans =  1
ans = 0

MATLAB - 39 ký tự

function [b] = dividesSelf(i)
b=all(~mod(i,sscanf(num2str(i),'%1d')))
end

BASH - 117 ký tự

f(){ [[ $1 =~ 0 ]]&& return 0 || r=;n=$1;for((i=0;i<${#n};i++));do r=$(($r+${n}%${n:$i:1}));done;return $(($r==0));}

kiểm tra

for N in 128 12 120 122 13 32 22 42 212 213 162 204; do
  f $N
  echo "${N} ->  $?"
done

128 ->  1
12 ->  1
120 ->  0
122 ->  1
13 ->  0
32 ->  0
22 ->  1
42 ->  0
212 ->  1
213 ->  0
162 ->  1
204 ->  0

PHP - 74 71 64 Ký tự

Chơi gôn

function t($n){while($n>1){if(!($b=$n%10)||($n%$b)){return 0;}$n/=10;}return 1;}

Ít chơi gôn hơn:

function t($n){
    while($n>1){
        if( !($b=$n%10) || ($n%$b) )
            { return 0; }
        $n/=10;
    }
    return 1;
}

Kết quả kiểm tra:

(Mã)

$ans = array(128,12,120,122,13,32,22,42,212,213,162,204);
foreach($ans as $a)
{ echo "$a -> ".(t($a)?"True":"False").PHP_EOL; }

(Đầu ra)

128 -> True
12 -> True
120 -> False
122 -> True
13 -> False
32 -> True
22 -> True
42 -> True
212 -> True
213 -> True
162 -> False
204 -> False