Số Harshad là một số chia hết cho tổng các chữ số của nó. Điều này rõ ràng phụ thuộc vào cơ sở mà số nguyên được viết vào. Số 10 Harshad cơ sở là dãy A005349 trong OEIS.

Nhiệm vụ của bạn:

Viết chương trình hoặc hàm xác định xem một số nguyên đã cho có phải là số Harshad trong một cơ sở đã cho hay không.

Đầu vào:

Một số nguyên dương <10 ^ 9 và một cơ sở nằm giữa 2 và 36, OR, một số nguyên dương trong cơ sở của nó, sử dụng các chữ cái viết thường cho các số từ 11-36 và một cơ sở từ 2 đến 36. Bạn chỉ phải xử lý một trong số những lựa chọn này.

Đầu ra:

Giá trị trung thực / giả mạo cho biết liệu đầu vào đầu tiên có phải là số Harshad trong cơ sở của đầu vào thứ hai hay không.

Ví dụ:

27,10 ----------> truthy
8,5 ------------> truthy
9,5 ------------> falsy
1a,12 OR 22,12 -> truthy

Ghi điểm:

Đây là môn đánh gôn , điểm thấp nhất tính bằng byte thắng.

Thạch , 4 byte

bSḍḷ

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

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

bSḍḷ  Main link. Arguments: n (integer), k (base)

b     Convert n to base k.
 S    Take the sum.
   ḷ  Left; yield n.
  ḍ   Test for divisibility.

Python 2 , 46 byte

lambda n,b:n%sum(n/b**i%b for i in range(n))<1

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

Python 3 , 73 byte

def f(n,b):
 if b<2:return 1
 s=0;c=n
 while n:s+=n%b;n//=b
 return c%s<1

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

1 là sự thật, bạn biết đấy.

APL Dyalog, 20 byte

{⍺=1:0⋄⍵|⍨+/⍺⊥⍣¯1⊢⍵}

Hãy thử trực tuyến! _{[15 số đầu tiên trong 15 căn cứ đầu tiên]}

Lấy số làm đối số bên phải và cơ sở làm đối số bên trái, 0 là trung thực.

Làm sao?

⍺⊥⍣¯1⊢⍵- ⍵trong cơ sở ⍺như một danh sách các chữ số

⍵|⍨- ⍵modulo ...

+/ - Tổng

Python 2 , 54 47 byte

n,k=input();m=n;s=0
exec's-=m%k;m/=k;'*n
1>>n%s

Độ phức tạp của thời gian và bộ nhớ là O (n) , vì vậy đừng thử 10 ⁹ trên TIO.

Đầu ra là thông qua mã thoát, vì vậy 0 là trung thực, 1 là sai. Nếu phương thức đầu ra này được cho phép, một byte nữa có thể được lưu bằng cách biến chương trình thành hàm.

Cảm ơn @ musicman523 đã đề xuất mã thoát!

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

Bình thường, 12 7 byte

!%hQsjF

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

Số lượng byte bây giờ thấp hơn vì unary không còn cần thiết.

Giải trình

!%hQsjF
     jF    Fold the input over base conversion (converts given number to given base)
    s      Sum the values
  %hQ       Take the first input modulo that sum
!          Logical not, turning 0s from the modulus into True and all else into False

R , 64 60 byte

(yêu cầu pryr gói)

pryr::f({d=pryr::f('if'(n<b,n,n%%b+d(b,n%/%b)));!n%%d(b,n)})

Đây là một hàm ẩn danh có hai đối số bvàn ước tính (trên TIO):

function(b,n){
   d=function(b,n)
     if(n<b) n else n%%b + d(b,n%/%b)
   !n%%d(b,n)
}

Ở đâu d tính tổng các chữ số cho cơ sở cần thiết.

Giảm 4 byte khi cơ sở được đảm bảo lớn hơn 1.

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

Japt , 9 byte

vUsV ¬xnV

Lấy đầu vào là hai số nguyên.

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

Javascript (ES6), 68 67 byte

n=>k=>!(n%eval([...n.toString(k)].map(_=>parseInt(_,k)).join('+')))

Lưu ý rằng kể từ khi chúng tôi được yêu cầu duy nhất để xử lý hoặc cơ sở- k hay cơ số 10 số cho n, tôi giả sử nlà một cơ số 10 số nguyên luôn.

-1 byte, nhờ TheLethalCoder!

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

!                                    # Convert to true if 0 else false
 (n%                                 # Compute n modulo
    eval(                            # evaluate string
         [...n.toString(k)]          # convert to array of base-k divisors
         .map(_=>parseInt(_,k))      # map lowercase characters to ints
         .join('+')                  # join array as string of characters
    )                                # get the raw remainder, and let ! do its work
 ) 

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

Javascript ES6, 62 byte

n=>b=>!(n%[...n.toString(b)].reduce((x,y)=>x+parseInt(x,b),0))

Perl 6 , 40 byte

{$^b>1??$^a%%[+] $a.polymod($b xx*)!!?1}

Kiểm tra nó

Mở rộng:

{  # bare block lambda with placeholder parameters ｢$a｣ and ｢$b｣

    $^b > 1          # declare ｢$b｣ and compare against 1

  ??                 # if ｢$b > 1｣ then:

      $^a            # declare ｢$a｣
    %%               # is it divisible by
      [+]            # reduce the following with &infix:<+> (sum)
        $a.polymod(
          $b xx *    # infinite list of ｢$b｣s
        )

  !!                 # if ｢$b <= 1｣ then:

    ? 1              # Boolify 1 (shorter than True)
}

Toán học, 30 byte

#2<2||Tr@IntegerDigits@##∣#&

Hàm thuần túy lấy hai đối số, số nguyên và cơ sở (theo thứ tự đó) và trả về Truehoặc False. Cẩn thận: hai |s đầu tiên chỉ là ký tự ASCII bình thường, trong khi cuối cùng ∣là U + 2223.

#2<2xử lý trường hợp đặc biệt của cơ sở 1. Mặt khác, Tr@IntegerDigits@##tạo tổng các chữ số của đối số thứ nhất khi được viết trong cơ sở của đối số thứ hai và ...∣#kiểm tra xem tổng đó có phân chia đối số thứ nhất hay không.

Mẻ, 119 byte

@if %2==1 echo 1&exit/b
@set/at=%1,s=0
:l
@if %t% gtr 0 set/as+=t%%%2,t/=%2&goto l
@set/at=%1%%s
@if %t%==0 echo 1

Đầu ra 1 cho số Harshad.

Python 3 , 45 byte

lambda n,b:int(n,b)%sum(int(i,b)for i in n)<1

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

Dựa trên các định dạng cập nhật cho đầu vào.

C (gcc) , 57 byte

f(n,b,t,s){while(b>1&&t){s+=t%b;t/=b;}return b<2||n%s<1;}

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

Pari / GP , 25 byte

(n,b)->n%sumdigits(n,b)<1

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

Java (OpenJDK 8) , 54 byte

n->b->{int s=0,c=n;for(;c>0;c/=b)s+=c%b;return n%s<1;}

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