aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Middle-three-digits/PARI-GP/middle-three-digits-1.parigp Normal file
View file

@ -0,0 +1,2 @@
middle(n)=my(v=digits(n));if(#v>2&&#v%2,100*v[#v\2]+10*v[#v\2+1]+v[#v\2+2],"no middle 3 digits");
apply(middle,[123, 12345, 1234567, 987654321, 10001, -10001, -123, -100, 100, -12345, 1, 2, -1, -10, 2002, -2002, 0])

1
Task/Middle-three-digits/PARI-GP/middle-three-digits-2.parigp Normal file
View file

@ -0,0 +1 @@
apply(n-> Strprintf("%03d", n), %)

1
Task/Middle-three-digits/PARI-GP/middle-three-digits-3.parigp Normal file
View file

@ -0,0 +1 @@
digits(n)=eval(Vec(Str(n)))

1
Task/Middle-three-digits/PARI-GP/middle-three-digits-4.parigp Normal file
View file

@ -0,0 +1 @@
digits(n)=Vec(apply(n->n-48,Vectorsmall(Str(n))))