Không sử dụng các chuỗi (trừ khi cần thiết, chẳng hạn như với đầu vào hoặc đầu ra), tính toán chữ số thứ n, từ bên trái , của một số nguyên (trong cơ sở 10).

Đầu vào sẽ được đưa ra trong định dạng này:

726433 5

Đầu ra phải là:

3

vì đó là chữ số thứ năm của "726433".

Đầu vào sẽ không chứa các số 0 đứng đầu, ví dụ "00223".

Các trường hợp thử nghiệm / ví dụ khác:

9 1  ->  9
0 1  ->  0
444494 5  ->  9
800 2  ->  0

Đây là mã golf; số lượng ký tự ít nhất sẽ thắng, nhưng bất kỳ chức năng tích hợp nào như "nthDigit (x, n)" đều không được chấp nhận .

Đây là một số mã giả để giúp bạn bắt đầu:

x = number
n = index of the digit
digits = floor[log10[x]] + 1
dropRight = floor[x / 10^(digits - n)]
dropLeft = (dropRight / 10 - floor[dropRight / 10]) * 10
nthDigit = dropLeft

Như bạn có thể thấy tôi mới chơi golf, và mặc dù tôi nghĩ hơi bất công khi tôi đặt câu hỏi trước khi tôi trả lời, tôi thực sự muốn xem loại phản hồi này tạo ra. :)

Chỉnh sửa : Tôi đã hy vọng cho các câu trả lời toán học, vì vậy tôi thực sự không thể chấp nhận các câu trả lời dựa trên việc chuyển đổi chuỗi thành mảng hoặc có thể truy cập các số dưới dạng danh sách các chữ số.

Chúng ta có một người chiến thắng

Viết bằng "dc", 12 byte. Bằng DigitalTrauma .

dc , 12 byte

?dZ?-Ar^/A%p

Đây là một câu trả lời toán học. Đây là cách nó hoạt động:

• ? đọc số đầu vào và đẩy để xếp
• d trùng lặp đầu ngăn xếp
• Z Bỏ giá trị ra khỏi ngăn xếp, tính toán và đẩy số chữ số
• ? đọc chỉ số chữ số và đẩy để xếp
• - trừ chỉ số chữ số từ số chữ số
• A đẩy 10 đến ngăn xếp
• r trao đổi 2 giá trị hàng đầu trên ngăn xếp
• ^ lũy thừa 10 ^ (số chữ số - chỉ số chữ số)
• / chia số cho kết quả của lũy thừa
• A đẩy 10 đến ngăn xếp
• % tính số mod 10 để lấy chữ số cuối cùng và đẩy lên trên cùng của ngăn xếp
• p bật và in đỉnh ngăn xếp

Trong hành động:

$ {tiếng vang 987654321; tiếng vang 1; } | dc ndigit.dc
9
$ {tiếng vang 987654321; tiếng vang 2; } | dc ndigit.dc
số 8
$ {tiếng vang 987654321; tiếng vang 8; } | dc ndigit.dc
2
$ {tiếng vang 987654321; tiếng vang 9; } | dc ndigit.dc
1
$ 

GolfScript (10 byte)

~(\10base=

Giả định đầu vào này là một chuỗi (ví dụ thông qua stdin). Nếu đó là hai số nguyên trên ngăn xếp, thì ban đầu ~nên xóa, lưu 1 char.

Nếu chuyển đổi cơ sở được coi là phạm lỗi của quy tắc chức năng tích hợp, tôi có một thay thế 16 char:

~~)\{}{10/}/=10%

CJam - 7

l~(\Ab=

CJam là ngôn ngữ mới tôi đang phát triển, tương tự như GolfScript - http://sf.net/p/cjam . Đây là lời giải thích:

lđọc một dòng từ đầu vào
~đánh giá chuỗi (do đó nhận được hai số) làm
(giảm số thứ hai
\hoán đổi các số
Alà một biến được định sẵn thành 10
bđể chuyển đổi cơ sở, tạo một mảng với 10 chữ số cơ bản của số thứ nhất
= đạt được mong muốn phần tử của mảng

Chương trình về cơ bản là một bản dịch của giải pháp của Peter Taylor.

Haskell 60 byte và có thể đọc được

nth x n
        | x < (10^n) = mod x 10
        | True = nth (div x 10) n

không có chuỗi liên quan!

*Main> nth 1234567 4
4

J - 15 24 char

Một "câu trả lời toán học" đầy đủ.

(10|[<.@*10^]-10>.@^.[)/

Kết quả tương tự như dưới đây, nhưng được ban cho chất lượng thần bí của toán học.

Phiên bản ngắn, sử dụng mở rộng cơ sở 10.

({0,10&#.inv)~/

Chúng tôi trả trước 0 để điều chỉnh cho lập chỉ mục dựa trên 1.

Sử dụng:

   ({0,10&#.inv)~/ 1234567 3
3
   ({0,10&#.inv)~/ 444494 5
9

Con trăn 127

def f(i,n):
 b=10;j=i/b;k=1;d=i-j*b
 while j>0:
  k+=1;j/=b
 if n>k:
  return -1
 while k>n:
  k-=1;j/=b;i/=b;d=i-j*b
 return d

C, 50

Điều này sử dụng mảng.

main(int c,char**a){putchar(a[1][atoi(a[2])-1]);}

Chỉ cần bỏ qua tất cả các cảnh báo.

Và vâng, trong C, chuỗi thực sự chỉ là mảng, vì vậy đây là loại giá rẻ.

Toán học hơn:

C, 83

main(int c,char**a){printf("%d",(atoi(a[1])/pow(10,strlen(a[1])-atoi(a[2])))%10);}

bc (điều khiển bởi bash), 41 29

Tôi nghĩ rằng đây là câu trả lời đầu tiên để làm điều này một cách toán học chứ không phải bằng các chuỗi:

bc<<<"$1/A^(length($1)-$2)%A"

Việc sử dụng length()có lẽ hơi phức tạp, nhưng trang bc man nói về số chữ số và không phải độ dài của chuỗi:

  length ( expression )
          The value of the length function is the  number  of  significant
          digits in the expression.

Đầu ra:

$ ./ndigits.bc.sh 726433 5
3
$ ./ndigits.bc.sh 9 1
9
$ ./ndigits.bc.sh 0 1
0
$ ./ndigits.bc.sh 444494 5
9
$ ./ndigits.bc.sh 800 2
0
$ 

Toán học - 24 23

Đây là một loại hiển nhiên :)

IntegerDigits[#][[#2]]&

Thí dụ:

IntegerDigits[#][[#2]]& [726433, 5]

Đầu ra:

3

Bạn có thể rút ngắn hơn bằng cách mã hóa hai số nguyên, vd

IntegerDigits[n][[m]]

nhưng sau đó bạn phải viết n = 726433; m = 5;. Các cuộc gọi chức năng cảm thấy tương tự như một chương trình.

C 145

Chương trình tìm khoảng cách từ cuối số nguyên và chia cho đến khi đạt được chỉ số sau đó sử dụng mô đun 10 để lấy chữ số cuối cùng.

int main()
{
int i,a,b,d,n;
scanf("%d %d",&i,&a);
d=(int)(log(i)/log(10))+1;
n=d-a;
while(n--){i=(int)(i/10);}
b=i%10;
printf("%d",b);
}

Wolfram Alpha - từ 40 đến 43

Tất nhiên, tôi hoàn toàn có thể bảo vệ rằng sử dụng IntegerDigitslà một mánh khóe không thuộc

bất kỳ chức năng được xây dựng nào, chẳng hạn như "nthDigit (x, n)"

Nhưng bởi vì câu trả lời trước đây của tôi vẫn cảm thấy như gian lận một chút, đây là một giải pháp thay thế. Thật không may, nó khá lâu hơn một chút, nhưng tôi không thấy làm thế nào để rút ngắn nó nhiều hơn tôi đã làm.

Đếm theo cách tương tự như trước đây (với ký hiệu, mà không vượt qua trong bất kỳ đối số nào),

Mod[Trunc[#/10^(Trunc[Log10[#]]-#2+1)],10]&

có 43 ký tự. Bằng cách phủ định số mũ và xáo trộn các thuật ngữ xung quanh, tôi có thể mất một toán tử số học ( 10^(...)xsẽ được hiểu là phép nhân)

Mod[Trunc[10^(#2-Trunc[Log10[#]]-1)#],10]&

Tôi không có Mathicala trong tay để kiểm tra, tôi nghi ngờ rằng đó sẽ là Như tôi nghi ngờ (và như đã được xác minh bởi kukac67 ) trong Mathicala, điều này không được chấp nhận, nhưng nó chạy trong WolframAlpha .

Tôi nghi ngờ về việc sử dụng RealDigits, bởi vì tôi đã hạn chế sử dụng IntegerDigitscho câu trả lời này và chúng khá giống nhau. Tuy nhiên, nếu tôi cho phép bản thân bao gồm nó (sau tất cả, nó không trả về số nguyên trực tiếp, chỉ có bao nhiêu trong số chúng), tôi có thể cắt giảm hai ký tự khác:

Mod[Trunc[10^(#2-RealDigits[#]-1)#],10]&

Tcl (42 byte, lambda):

{{x y} {expr $x/10**int(log10($x)+1-$y)%10}}

(49 byte, hàm):

proc f {x y} {expr $x/10**int(log10($x)+1-$y)%10}

(83 byte, nếu chúng ta cần chấp nhận đầu vào từ shell):

puts [expr [lindex $argv 0]/10**int(log10([lindex $argv 0])+1-[lindex $argv 1])%10]

R (60)

Giải bài toán bằng log10 để tính số chữ số. Trường hợp đặc biệt x == 0 có giá 13 ký tự, thở dài.

f=function(x,n)if(x)x%/%10^(trunc(log10(x))-n+1)%%10 else 0

Ung dung:

f=function(x,n)
  if(x) 
    x %/% 10^(trunc(log10(x)) - n + 1) %% 10
  else
    0

Sử dụng

> f(898,2)
[1] 9

Scala ( 133 99 byte):

Hoạt động cho tất cả các đầu vào tích cực. Chia cho 10 cho sức mạnh của chữ số tìm kiếm từ bên phải, sau đó lấy nó theo modulo 10.

def k (i: Mảng [Chuỗi]) = {val m = i (0) .toInt
(m * Math.pow (10, i (1) .toInt-1-Math.log10 (m) toInt)). toInt% 10}

Cảm ơn bạn đã nhận thấy lỗi trong công thức trước. Cái này ngắn hơn

Haskell, 142

Tôi không chắc mình đã hiểu chính xác câu hỏi, nhưng đây là điều tôi nghĩ bạn muốn: đọc stdin (chuỗi), tạo hai số int (không phải chuỗi), thực hiện một số điều thuật toán và sau đó xuất kết quả (chuỗi). Tôi nhồi nhét nó vào 142 ký tự, đó là quá nhiều:

import System.Environment
a%b|a>9=div a 10%(b+1)|1<2=b
x#n=x`div`10^(x%1-n)`mod`10
u[a,b]=read a#read b
main=fmap(u.words)getContents>>=print

sử dụng ví dụ:

> echo 96594 4 | getIndex
9

JavaScript - 84

p=prompt,x=+p(),m=Math;r=~~(x/m.pow(10,~~(m.log(x)/m.LN10)+1-+p()));p(r-~~(r/10)*10)

Hoàn toàn là toán học, không có chuỗi, không ai trong số họ. Lấy số thứ nhất trong dấu nhắc thứ nhất và số thứ hai trong dấu nhắc thứ hai.

Trường hợp thử nghiệm :

Input: 97654 5
Output: 4

Input: 224658 3
Output: 4

Mã bị hủy bỏ:

p = prompt,
x = +p(), // or parseInt(prompt())
m = Math;

r = m.floor( x / m.pow(10, m.floor(m.log(x) / m.LN10) + 1 - +p()) )
//                                               ^-- log(10) ^-- this is `n`

p(r - ~~(r / 10) * 10) // show output

perl, 38, 36   không 30 ký tự

(không tính dòng thức ăn)

Điều này được cho là gian lận do chuyển đổi lệnh, nhưng cảm ơn vì đã cho tôi chơi :-)

~/$ cat ndigits.pl
say((split//,$ARGV[0])[$ARGV[1]-1]);
~/$ tr -cd "[:print:]" < ndigits.pl |wc -m 
36
~/$ perl -M5.010 ndigits.pl 726433 5 
3

chỉnh sửa :

Đã có thể xóa 2 ký tự:

 say for(split//,$ARGV[0])[$ARGV[1]-1];
 say((split//,$ARGV[0])[$ARGV[1]-1]);

... Sau đó thêm 6:

 say((split//,shift)[pop()-1]);

Làm sao

Chúng tôi chia đầu vào của đối số đầu tiên cho tập lệnh $ARGV[0]theo ký tự ( split//) tạo ra một mảng được lập chỉ mục bằng không; thêm một vào đối số thứ hai $ARGV[1]vào tập lệnh sau đó tương ứng với phần tử ở vị trí đó trong chuỗi hoặc đối số thứ nhất. Sau đó chúng ta giữ biểu thức bên trong ()dưới dạng một danh sách một phần tử saysẽ lặp lại. Đối với phiên bản ngắn hơn, chúng tôi chỉ cần shifttrong đối số đầu tiên và sử dụng phần còn lại của @ARGV để sử dụng cho chỉ mục - một khi shifted chỉ còn lại đối số thứ hai nên chúng tôi pop()trừ và trừ đi 1.

Đây có phải là một bài tập toán? Tôi mới nhận ra mình đang lập chỉ mục một chuỗi đọc từ đầu vào, vì vậy ... Tôi đoán là tôi thua ?? Đánh dấu tôi nếu tôi có ý nghĩa trong sân golf song song và tôi sẽ thử lại - về mặt toán học hơn - trong một câu trả lời riêng.

chúc mừng

PHP, 58

Chỉ sử dụng toán

<?$n=$argv[1];while($n>pow(10,$argv[2]))$n/=10;echo $n%10;

~ - ~! - 94 93

Bẻ cong các quy tắc một chút - đó là một hàm lấy n làm đầu vào và giả sử số để tìm chữ số n của được lưu trữ trong '''''- và ~ - ~! không hỗ trợ phao.

'=~~~~~,~~:''=|*==~[']<''&*-~>,'|:'''=|*==%[%]~+*/~~~~/~~|:''''=|'''''/''&<<'''&'''''>-*-~>|:

'''''=~~~~,~~,~~,~~,~~,~~:''''''=''''&~:sẽ dẫn đến kết quả ''''''là ~~(2) ('' '' '= 128).

Python 2.7 (89 byte)

Tôi biến đổi số nguyên thành "đa thức" bằng cách sử dụng danh sách các chữ số. Tôi biết bạn nói rằng bạn không thể chấp nhận điều đó, nhưng tôi không hiểu tại sao không vì nó sử dụng khái niệm toán học về các số được biểu diễn dưới dạng đa thức của các cơ sở của chúng. Nó sẽ chỉ thất bại khi số nguyên được truyền vào là 0, nhưng bạn đã nói không có số 0 được đệm;)

import sys;v=sys.argv;p,x,n=[],int(v[1]),int(v[2])
while x:p=[x%10]+p;x//=10
print p[n-1]

Chạy như test.py:

$ python test.py 726489 5
8

Tôi giả sử bạn muốn đầu vào shell và tôi không thể sử dụng thực tế là đầu vào sẽ là chuỗi. Bỏ qua đầu vào shell chỉ là 43 byte, với:

p=[]
while x:p=[x%10]+p;x//=10
print p[n-1]

Mặc dù tôi sử dụng một số lần lặp không cần thiết, tôi vẫn lưu một số byte bằng cách không thêm phần giảm giá vào n.

BrainFuck mở rộng : 49

+[>>,32-]<<-[<<-],49-[->>>[>>]+[<<]<]>>>[>>]<33+.

Sử dụng:

% bf ebf.bf < nth-digit.ebf > nth-digit.bf
% echo "112234567 7" | bf nth-digit.bf 
5

Tôi không sử dụng bất kỳ tính năng đặc biệt nào của EBF ngoại trừ toán tử nhân (ví dụ. 10+ => ++++++++++). Khác với điều đó chủ yếu là BrainFuck thuần túy

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

+                ; Make a 1 in the first cell
[>>,32-]         ; while cell is not zero: read byte 2 to the right and reduce by 32 (space)
<<-[<<-]         ; move back to the first cell by reducing every cell with 1
,49-             ; read index, reduce by 49 so that ascii 1 becomes 0
[->>>[>>]+[<<]<] ; use that to fill a trail of breadcrumbs to the desired number
>>>[>>]          ; follow the breadcrumbs
<33+.            ; go to value part, increase by 33 (32 + 1 which we substracted) and print

Lược đồ (R6RS): 100 (không có khoảng trắng không cần thiết)

(let*((x(read))(n(read))(e(expt 10(-(floor(+(/(log x)(log 10))1))n))))
  (exact(div(mod x(* e 10))e)))

ôi - 53

{for(d=10^9;!int($1/d)||--$2;d/=10);$0=int($1/d)%10}1

1. cắt các chữ số bằng cách chia, bắt đầu với tối đa có thể cho int 32 bit không dấu
2. khi chúng ta nhấn vào bên trái của số nguyên, int ($ 1 / d) trả về khác không
3. tiếp tục n ($ 2) chữ số qua đó

Ung dung:

{
    for(d = 1000000000; int($1 / d) != 0 || --$2; d /= 10);
    print int($1 / d) % 10;
}

Scala (83)

Không sử dụng bất kỳ tính năng đặc biệt Scala. Thay vào đó là giải pháp chuẩn.

def f(x:Int,n:Int)=if(x==0)0 else x/(math.pow(10,math.log10(x).toInt-n+1)).toInt%10

Ung dung:

def f(x:Int,n:Int) = 
  if(x==0)
    0
  else
    x / (math.pow(10, math.log10(x).toInt - n + 1)).toInt % 10 

C, 94

main(x,y,z,n){scanf("%d%d",&x,&y);for(z=x,n=1-y;z/=10;n++);for(;n--;x/=10);printf("%d",x%10);}

C, 91, không hợp lệ vì sử dụng mảng.

main(x,y,z){int w[99];scanf("%d%d",&x,&y);for(z=0;x;x/=10)w[z++]=x%10;printf("%d",w[z-y]);}

Julia 37

d(x,y)=div(x,10^int(log10(x)-y+1))%10

Do toán tử dựng sẵn ^. Số học chính xác tùy ý cho phép bất kỳ kích thước int.

Mẫu vật

julia> d(1231198713987192871,10)
3

perl (toán học hơn một chút / không chơi gôn lắm) - 99 ký tự

 ~/$ cat ndigits2.pl
  ($n,$i)=@ARGV;
  $r=floor($n/10**(floor(log($n)/log(10)+1)-$i));
  print int(.5+($r/10-floor($r/10))*10);

Chạy nó như:

 perl -M5.010 -MPOSIX=floor ndigits.pl 726433 1

Perl6 - 85 ký tự

my ($n,$i)=@*ARGS;
my$r=$n/10**(log10($n).round-$i);
say (($r/10-floor($r/10))*10).Int;

Smalltalk, 44

Mặc dù dc là vô địch, đây là một giải pháp Smalltalk:

đối số, số n; d chữ số-nr để giải nén:

[:n :d|(n//(10**((n log:10)ceiling-d)))\\10]