ค้นหา repetend ของการแทนทศนิยม!

12

ในการท้าทายนี้เมื่อ 2 ปีที่แล้วเราพบระยะเวลาของเศษส่วนหน่วย ( 1/n where n is a natural number)

ตอนนี้งานของคุณคือการเขียนโปรแกรม / ฟังก์ชั่นเพื่อค้นหาrepetendของเศษส่วนหน่วย

การทำซ้ำเป็นส่วนหนึ่งของการขยายทศนิยมที่ทำซ้ำไม่สิ้นสุดเช่น:

  • แสดงทศนิยมของ1/6มี0.16666...แล้วrepetend6คือ
  • แสดงทศนิยมของ1/11มี0.090909...แล้ว repetend 09คือ
  • แสดงทศนิยมของ1/28มี0.0357142857142857142857...แล้ว repetend 571428คือ

รายละเอียด

  • ป้อนข้อมูลในรูปแบบที่เหมาะสม
  • เอาท์พุท repetend ในทศนิยมที่สตริงหรือรายการ
  • สำหรับ1/7( 0.142857142857...) คุณต้องส่งออกแทน142857428571
  • สำหรับ1/13( 0.076923076923076923...) คุณต้องส่งออกแทน07692376923
  • ไม่มีแรงเดรัจฉานโปรด

Testcases

Input    Output
1        0
2        0
3        3
7        142857
13       076923
17       0588235294117647
28       571428
70       142857
98       102040816326530612244897959183673469387755
9899     000101020305081321345590463683200323264976260228305889483786241034447924032730578846348115971310233356904737852308313971108192746742095161127386604707546216789574704515607637135064147893726639054449944438832205273259925244974239822204263056874431760783917567431053641781998181634508536215779371653702394181230427315890493989291847661379937367410849580765733912516415799575714718658450348520052530558642287099707041115264168097787655318719062531568845337912920497019901

เกณฑ์การให้คะแนน

นี่คือรหัสกอล์ฟ ทางออกที่สั้นที่สุดในหน่วยไบต์ชนะ

ไม่มีคำตอบที่จะได้รับการยอมรับเพราะเป้าหมายไม่ใช่เพื่อค้นหาภาษาที่มีความสามารถในการแก้ปัญหาที่สั้นที่สุด แต่เป็นคำตอบที่สั้นที่สุดในแต่ละภาษา

ลีดเดอร์บอร์ด

แสดงตัวอย่างรหัส

code-golf  math  arithmetic  number-theory 
— แม่ชีที่ไม่มั่นคง
แหล่งที่มา
ขอให้เรายังคงอภิปรายนี้ในการแชท
— Rɪᴋᴇʀ
1
คุณตัดสินใจได้อย่างไรว่าการทำซ้ำสำหรับ 13 คือ 076923 และไม่ใช่ 769230
— aditsu เลิกเพราะ SE นั้นชั่วร้าย
@aditsu เพราะ1/13เป็น0.076923076923...ไม่ได้0.769230769230...
— รั่วนูน
3
เปิดเผยอย่างเปิดเผยว่าคุณจะไม่ยอมรับคำตอบที่ค่อนข้างสวยทำให้แคตตาล็อกนี้ อย่าพูดอะไรและไม่เคยยอมรับคำตอบ
— เดนนิส
1
คุณสามารถเพิ่มตัวอย่างสแต็กเพื่อแสดงวิธีแก้ปัญหาที่สั้นที่สุดสำหรับแต่ละภาษา
— aditsu ออกจากเพราะ SE นั้นชั่วร้าย

คำตอบ:

5

Java, 150 ไบต์:

String p(int n){int a=1,p;String r="";for(;n%10<1;n/=10);for(;n%2<1;n/=2)a*=5;for(;n%5<1;n/=5)a*=2;for(p=a%=n;;){p*=10;r+=p/n;if(a==(p%=n))return r;}}

เพิ่มช่องว่าง:

String p(int n){
    int a=1,p;
    String r="";
    for(;n%10<1;n/=10);
    for(;n%2<1;n/=2)
        a*=5;
    for(;n%5<1;n/=5)
        a*=2;
    for(p=a%=n;;){
        p*=10;
        r+=p/n;
        if(a==(p%=n))
            return r;
    }
}

Ungolfed โปรแกรมเต็มรูปแบบ:

import java.util.Scanner;

public class A036275 {
    public static String period(int a,int n){
        if(n%10==0) return period(a,n/10);
        if(n%2==0) return period(a*5,n/2);
        if(n%5==0) return period(a*2,n/5);
        a %= n;
        int pow = a;
        String period = "";
        while(true){
            pow *= 10;
            period += pow/n;
            pow %= n;
            if(pow == a){
                return period;
            }
        }
    }
    public static String period(int n){
        return period(1,n);
    }
    public static void main(String args[]){
        Scanner sc = new Scanner(System.in);
        int n = sc.nextInt();
        sc.close();
        System.out.println(period(n));
    }
}
— แม่ชีที่ไม่มั่นคง
แหล่งที่มา
for(;;)จะน้อยกว่าไบต์while(2<3)ในขณะที่ยังเป็นวนรอบไม่สิ้นสุด! (และน้อยกว่าไบต์while(1)ด้วย @Maltysen)
— Marv
@Marv ฉันจะลืมได้อย่างไร? ขอบคุณ!
— Leun Nun
ใส่การประกาศสำหรับaและrในการวนรอบ บันทึกไบต์!
— CalculatorFeline
1
@CatsAreFluffy มันจะทำให้พวกเขาไม่สามารถเข้าถึงได้ ...
— รั่วนูน
3

CJam, 26

riL{_XW$%A*:X|X@-}g_X#>\f/

ลองออนไลน์

คำอธิบาย:

โปรแกรมสร้างชุดของเงินปันผลที่เกี่ยวข้องในการคำนวณการขยายทศนิยมจนกว่าจะพบเงินปันผลที่เคยเห็นมาก่อน จากนั้นมันจะใช้เงินปันผลทั้งหมดที่เริ่มต้นด้วยอันนั้นและหารด้วย n เพื่อให้ได้ตัวเลขของการซ้ำ

ri       read the input and convert to integer (n)
L        push an empty array (will add the dividends to it)
{…}g     do … while
  _      copy the current array of dividends
  X      push the latest dividend (initially 1 by default)
  W$     copy n from the bottom of the stack
  %A*    calculate X mod n and multiply by 10
  :X     store in X (this is the next dividend)
  |      perform set union with the array of dividends
  X@     push X and bring the old array to the top
  -      set difference; it is empty iff the old array already contained X
          this becomes the do-while loop condition
_X#      duplicate the array of dividends and find the position of X
>        take all dividends from that position
\f/      swap the array with n and divide all dividends by n
— aditsu ออกจากเพราะ SE นั้นชั่วร้าย
แหล่งที่มา
3

Python 3.5, 79 74 73 70 ไบต์

f=lambda n,t=1,q=[],*d:q[(*d,t).index(t):]or f(n,t%n*10,q+[t//n],*d,t)

ที่บันทึกไว้ 3 ไบต์โดยการติดตามการจ่ายเงินปันผล, ความคิดที่ผมเอามาจาก@ aditsu คำตอบของ

ทดสอบบนrepl.it

— เดนนิส
แหล่งที่มา
2

เจลลี่ , 12 10 ไบต์

%³×⁵
1ÇÐḶ:

ที่บันทึกไว้ 2 ไบต์โดยการติดตามการจ่ายเงินปันผล, ความคิดที่ผมเอามาจาก@ aditsu คำตอบของ

ลองออนไลน์!

มันทำงานอย่างไร

%³×⁵     Helper link. Argument: d (dividend)

%³       Yield the remainder of the division of d by n.
  ×⁵     Multiply by 10.


1ÇÐḶ:    Main link. Argument: n

1        Yield 1 (initial dividend).
 ÇÐḶ     Apply the helper link until its results are no longer unique.
         Yield the loop, i.e., everything from the first repeated result
         up to and including the last unique one.
    :    Divide each dividend by n.
— เดนนิส
แหล่งที่มา
1

GameMaker Language, 152 ไบต์

ตามคำตอบของ Kenny

n=argument0;a=1r=0while(n mod 2<1){a*=5n/=2}while(n mod 5<1){a*=2n/=5}a=a mod n;p=a;while(1){p*=10r=r*10+p/n;r=r mod $5f5e107;p=p mod n;if(a=p)return r}
— Timtech
แหล่งที่มา
ฉันเพิ่งพบข้อผิดพลาดในแนวทางของฉันและแก้ไขมันดังนั้นบางทีคุณอาจจำเป็นต้องอัปเดตสิ่งนี้ด้วย
— Leun Nun
1

Perl 6 , 37 ไบต์

{(1.FatRat/$_).base-repeating[1]||~0}
~0 max (1.FatRat/*).base-repeating[1]

หากคุณไม่สนใจว่ามันจะทำงานร่วมกับตัวหารที่เหมาะสมเป็น 64 .FatRatบิตจำนวนเต็มคุณสามารถเอาเรียกวิธีการ

คำอธิบาย:

# return ｢"0"｣ if ｢.base-repeating｣ would return ｢""｣
~0

# ｢&infix<max>｣ returns the numerically largest value
# or it's first value if they are numerically equal
max

(
  # turn 1 into a FatRat so it will work
  # with denominators of arbitrary size
  1.FatRat

  # divided by
  /

  # the input
  *

# get the second value from calling the
# method ｢.base-repeating｣
).base-repeating[1]

ทดสอบ:

#! /usr/bin/env perl6
use v6.c;
use Test;

my &code = ~0 max (1.FatRat/*).base-repeating[1];
# stupid highlighter */
# Perl has never had // or /* */ comments

my @tests = (
  1    => '0',
  2    => '0',
  3    => '3',
  6    => '6',
  7    => '142857',
  11   => '09',
  13   => '076923',
  17   => '0588235294117647',
  28   => '571428',
  70   => '142857',
  98   => '102040816326530612244897959183673469387755',
  9899 => '000101020305081321345590463683200323264976260228305889483786241034447924032730578846348115971310233356904737852308313971108192746742095161127386604707546216789574704515607637135064147893726639054449944438832205273259925244974239822204263056874431760783917567431053641781998181634508536215779371653702394181230427315890493989291847661379937367410849580765733912516415799575714718658450348520052530558642287099707041115264168097787655318719062531568845337912920497019901',
);

plan +@tests;

for @tests -> $_ ( :key($input), :value($expected) ) {
  is code($input), $expected, "1/$input";
}
1..12
ok 1 - 1/1
ok 2 - 1/2
ok 3 - 1/3
ok 4 - 1/6
ok 5 - 1/7
ok 6 - 1/11
ok 7 - 1/13
ok 8 - 1/17
ok 9 - 1/28
ok 10 - 1/70
ok 11 - 1/98
ok 12 - 1/9899
— Brad Gilbert b2gills
แหล่งที่มา
0

PHP, 169 ไบต์

$d=$argv[2];$a[]=$n=$argv[1];while($n%$d&&!$t){$n*=10;$r[]=$n/$d^0;$t=in_array($n%=$d,$a);$a[]=$n;}if($t)echo join(array_slice($r,array_search(end($a),$a),count($a)-1));
— JörgHülsermann
แหล่งที่มา
โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.