1. Home
2. Questions
3. Tags
5. Users
6. Jobs
7. Companies
8. Unanswered
Teams

Ask questions, find answers and collaborate at work with Stack Overflow for Teams.
Try Teams for free Explore Teams
Teams
Ask questions, find answers and collaborate at work with Stack Overflow for Teams. Explore Teams

Return to Answer

Commonmark migration

Source Link

edited Jun 17, 2020 at 9:04

1

#Mathematica 30 bytes

Mathematica 30 bytes

RealDigits[Pi,10,1,-#][[1,1]]&

f=%

f@0
f@1
f@2
f@3
f@10
f@100
f@599
f@760
f@1000
f@10000

1
4
1
5
8
8
2
4
3
5

#Mathematica 30 bytes

RealDigits[Pi,10,1,-#][[1,1]]&

f=%

f@0
f@1
f@2
f@3
f@10
f@100
f@599
f@760
f@1000
f@10000

1
4
1
5
8
8
2
4
3
5

Mathematica 30 bytes

RealDigits[Pi,10,1,-#][[1,1]]&

f=%

f@0
f@1
f@2
f@3
f@10
f@100
f@599
f@760
f@1000
f@10000

1
4
1
5
8
8
2
4
3
5

Post Undeleted by DavidC

occurred Jul 5, 2016 at 13:32

fixed

Source Link

edited Jul 5, 2016 at 13:32

25.4k
2
52
105

#Mathematica 30 bytes

RealDigits[N[Pi,#+3]][[1,-2]]&

This should also work, but uses one-indexing:

RealDigits[Pi,10,1,-#][[1,1]]&

RealDigits[N[Pi, # + 3]][[1, -2]] &[100]f=%

(* 8 *)f@0

RealDigits[N[Pi, # + 3]][[1, -2]] &[10^7]f@1
f@2
(* 3 *)f@3
f@10
f@100
f@599
f@760
f@1000
f@10000

1
4
1
5
8
8
2
4
3
5

#Mathematica 30 bytes

RealDigits[N[Pi,#+3]][[1,-2]]&

This should also work, but uses one-indexing:

RealDigits[Pi,10,1,-#][[1,1]]&

RealDigits[N[Pi, # + 3]][[1, -2]] &[100]

(* 8 *)

RealDigits[N[Pi, # + 3]][[1, -2]] &[10^7]

(* 3 *)

#Mathematica 30 bytes

RealDigits[Pi,10,1,-#][[1,1]]&

f=%

f@0
f@1
f@2
f@3
f@10
f@100
f@599
f@760
f@1000
f@10000

1
4
1
5
8
8
2
4
3
5

Post Deleted by DavidC

occurred Jul 5, 2016 at 13:19

added 2 characters in body

Source Link

edited Jul 5, 2016 at 13:18

25.4k
2
52
105

#Mathematica 30 bytes

RealDigits[N[Pi,#+3]][[1,-2]]&

This should also work, but uses one-indexing:

RealDigits[Pi,10,1,-#][[1,1]]&

RealDigits[N[Pi, # + 3]][[1, -2]] &[100]

(* 8 *)

RealDigits[N[Pi, # + 3]][[1, -2]] &[10^7]

(* 3 *)

#Mathematica 30 bytes

RealDigits[N[Pi,#+3]][[1,-2]]&

This should also work, but uses one-indexing:

RealDigits[Pi,10,1,-#][[1,1]]&

RealDigits[N[Pi, # + 3]][[1, -2]] &[100]

(* 8 *)

RealDigits[N[Pi, # + 3]][[1, -2]] &[10^7]

(* 3 *)

#Mathematica 30 bytes

RealDigits[N[Pi,#+3]][[1,-2]]&

This should also work, but uses one-indexing:

RealDigits[Pi,10,1,-#][[1,1]]&

RealDigits[N[Pi, # + 3]][[1, -2]] &[100]

(* 8 *)

RealDigits[N[Pi, # + 3]][[1, -2]] &[10^7]

(* 3 *)

added 89 characters in body

Source Link

edited Jul 4, 2016 at 17:19

25.4k
2
52
105

Loading

Source Link

created Jul 4, 2016 at 16:05

25.4k
2
52
105

Loading