3 개의 양의 정수 n b k를 입력 출력으로 제공하거나 k의 기본 b표현 에서 후행 0 이전의 마지막 숫자를 리턴 하는 프로그램 또는 함수를 작성해야합니다 n!.

예

n=7 b=5 k=4
factorial(n) is 5040
5040 is 130130 in base 5
the last 4 digits of 130130 before the trailing zeros are 3013
the output is 3013

입력

• n b k여기서 3 개의 양의 정수 2 <= b <= 10.
• 입력 정수의 순서는 임의로 선택할 수 있습니다.

산출

• 정수 또는 정수 목록으로 리턴되거나 출력되는 자릿수 목록.
• 선행 0은 선택 사항입니다.
• 귀하의 솔루션은 내 컴퓨터 에서 1 분 이내에 예제 테스트 사례를 해결해야 합니다 (닫기 사례 만 테스트합니다. 평균 이하의 PC가 있습니다).

예

제출의 정확성을 확인하기 위해 새로운 테스트가 추가되었습니다. (1 분 미만의 런타임 규칙에는 속하지 않습니다.)

입력 => 출력 (앞의 0을 생략하여 선택)

3 10 1  =>  6

7 5 4  =>  3013

3 2 3  =>  11

6 2 10  =>  101101

9 9 6  =>  6127

7 10 4  =>  504

758 9 19  =>  6645002302217537863

158596 8 20  =>  37212476700442254614

359221 2 40  =>  1101111111001100010101100000110001110001

New tests:
----------

9 6 3  =>  144

10 6 3  =>  544

이것은 코드 골프이므로 가장 짧은 항목이 이깁니다.

답변

⌽k↑⌽{⍵↓⍨-⊥⍨0=⍵}b⊥⍣¯1⊢!n

IntegerString[#!/#2^#!~IntegerExponent~#2,##2]&

def F(n,b,k):
 p=5820556928/8**b%8;z=0;e=f=x=1
 while n/p**e:z+=n/p**e;e+=1
 z/=1791568/4**b%4;B=b**(z+k)
 while x<=n:f=f*x%B;x+=1
 s='';f/=b**z
 while f:s=str(f%b)+s;f/=b
 return s

M?G%GHg/GHH.N>ju%g*GhHT^T+YslNN1T_Y

(n,b,k)->digits(n!/b^valuation(n!,b)%b^k,b)

#!~IntegerDigits~#2/.{l__,0...}:>{l}~PadLeft~#3&

Function[{n, b, k},
  IntegerDigits[n!, b] (* list of the base-b digits in n! *)
  /. {l__, 0...} (* match a sequence of elements l and some number of zeros*)
                 (* lucky for me, __ defaults to match the shortest number *)
     :> PadLeft[List[l], k] (* pad l to be k elements long with zeros on the left *)
                            (* this truncates the list if it is too long*)
]

#!~IntegerDigits~#2/.{l__,0...}:>{l}~PadLeft~#3 &
%[758, 9, 19] // Timing

(* {0.031250, {6, 6, 4, 5, 0, 0, 2, 3, 0, 2, 2, 1, 7, 5, 3, 7, 8, 6, 3}} *)

Length@IntegerDigits[359221!, 2] // Timing
(* {0.109375, 6111013} 6.1M digits in 100 ms *)

dc<<<"1 `seq -f%g* $1`$2op"|sed -r s/0+$//|tail -c$(($3+1))