Giới thiệu

Một số thập phân sẽ chấm dứt nếu nó có số chữ số thập phân hữu hạn. Ví dụ: 0,4 (2/5) đang chấm dứt vì nó có một chữ số thập phân.

Số thập phân hoàn toàn là định kỳ nếu nó có số chữ số thập phân vô hạn và không có chữ số thập phân trước khi lặp lại (phần thập phân lặp lại.) Ví dụ: 0.142857142857142 cách (1/7) hoàn toàn là định kỳ vì nó có phần lặp lại 142857, bắt đầu lặp lại ngay sau dấu thập phân.

Cuối cùng, một số thập phân là định kỳ nếu nó có số chữ số thập phân vô hạn và có số chữ số thập phân hữu hạn trước khi lặp lại (phần thập phân lặp lại.) Ví dụ: 0.166666666666666 (1/6) cuối cùng là định kỳ vì lặp lại 6 bắt đầu lặp lại sau 1.

Nhiệm vụ của bạn

Viết chương trình hoặc hàm, khi cho các số p và q (số nguyên, 0 <= p < q <= 100), sẽ xác định xem biểu diễn thập phân của p / q có chấm dứt, hoàn toàn định kỳ hoặc cuối cùng là định kỳ.

Bạn phải ra anếu nó Ngừng (tức là 0.1), bnếu nó thuần túy định kỳ (tức là 0,333 ...), hoặc cnếu đó là Cuối cùng kỳ (tức là 0,166 ...), nơi a, bvà cbất kỳ khác biệt, hằng xâu lựa chọn của bạn.

Các trường hợp thử nghiệm

0/1 => Terminating
0/2 => Terminating
1/2 => Terminating
0/3 => Terminating
1/3 => Purely Periodic
2/3 => Purely Periodic
0/4 => Terminating
1/4 => Terminating
2/4 => Terminating
3/4 => Terminating
0/5 => Terminating
1/5 => Terminating
2/5 => Terminating
3/5 => Terminating
4/5 => Terminating
0/6 => Terminating
1/6 => Eventually Periodic
2/6 => Purely Periodic
3/6 => Terminating
4/6 => Purely Periodic
5/6 => Eventually Periodic
0/7 => Terminating
1/7 => Purely Periodic
2/7 => Purely Periodic
3/7 => Purely Periodic
4/7 => Purely Periodic
5/7 => Purely Periodic
6/7 => Purely Periodic
0/8 => Terminating
1/8 => Terminating
2/8 => Terminating
3/8 => Terminating
4/8 => Terminating
5/8 => Terminating
6/8 => Terminating
7/8 => Terminating
0/9 => Terminating
1/9 => Purely Periodic
2/9 => Purely Periodic
3/9 => Purely Periodic
4/9 => Purely Periodic
5/9 => Purely Periodic
6/9 => Purely Periodic
7/9 => Purely Periodic
8/9 => Purely Periodic
0/10 => Terminating
1/10 => Terminating
2/10 => Terminating
3/10 => Terminating
4/10 => Terminating
5/10 => Terminating
6/10 => Terminating
7/10 => Terminating
8/10 => Terminating
9/10 => Terminating
0/11 => Terminating
1/11 => Purely Periodic
2/11 => Purely Periodic
3/11 => Purely Periodic
4/11 => Purely Periodic
5/11 => Purely Periodic
6/11 => Purely Periodic
7/11 => Purely Periodic
8/11 => Purely Periodic
9/11 => Purely Periodic
10/11 => Purely Periodic
0/12 => Terminating
1/12 => Eventually Periodic
2/12 => Eventually Periodic
3/12 => Terminating
4/12 => Purely Periodic
5/12 => Eventually Periodic
6/12 => Terminating
7/12 => Eventually Periodic
8/12 => Purely Periodic
9/12 => Terminating
10/12 => Eventually Periodic
11/12 => Eventually Periodic
0/13 => Terminating
1/13 => Purely Periodic
2/13 => Purely Periodic
3/13 => Purely Periodic
4/13 => Purely Periodic
5/13 => Purely Periodic
6/13 => Purely Periodic
7/13 => Purely Periodic
8/13 => Purely Periodic
9/13 => Purely Periodic
10/13 => Purely Periodic
11/13 => Purely Periodic
12/13 => Purely Periodic
0/14 => Terminating
1/14 => Eventually Periodic
2/14 => Purely Periodic
3/14 => Eventually Periodic
4/14 => Purely Periodic
5/14 => Eventually Periodic
6/14 => Purely Periodic
7/14 => Terminating
8/14 => Purely Periodic
9/14 => Eventually Periodic
10/14 => Purely Periodic
11/14 => Eventually Periodic
12/14 => Purely Periodic
13/14 => Eventually Periodic
0/15 => Terminating
1/15 => Eventually Periodic
2/15 => Eventually Periodic
3/15 => Terminating
4/15 => Eventually Periodic
5/15 => Purely Periodic
6/15 => Terminating
7/15 => Eventually Periodic
8/15 => Eventually Periodic
9/15 => Terminating
10/15 => Purely Periodic
11/15 => Eventually Periodic
12/15 => Terminating
13/15 => Eventually Periodic
14/15 => Eventually Periodic

_{Bạn có thể tìm thấy tất cả các trường hợp thử nghiệm ở đây .}

Bạn được phép chọn 3 giá trị của riêng mình cho đầu ra, nhưng nó phải rõ ràng về giá trị của nó.

Hãy nhớ rằng, đây là mã golf , vì vậy mã có số byte nhỏ nhất sẽ thắng.

Gợi ý

Chấm dứt:

Hệ số nguyên tố của mẫu số thập phân kết thúc ở dạng đơn giản nhất chỉ bao gồm 2 giây và 5 giây.

Hoàn toàn định kỳ:

Hệ số nguyên tố của mẫu số thập phân hoàn toàn định kỳ ở dạng đơn giản nhất không bao gồm bất kỳ 2 giây hoặc 5 giây.

Cuối cùng định kỳ:

Hệ số nguyên tố của mẫu số thập phân định kỳ cuối cùng ở dạng đơn giản nhất bao gồm ít nhất một 2 hoặc 5, nhưng cũng bao gồm các số khác.

Bảng xếp hạng

Dưới đây là Stack Snippet để tạo cả bảng xếp hạng thông thường và tổng quan về người chiến thắng theo ngôn ngữ.

Để đảm bảo rằng câu trả lời của bạn hiển thị, vui lòng bắt đầu câu trả lời của bạn bằng một tiêu đề, sử dụng mẫu Markdown sau:

# Language Name, N bytes

nơi Nlà kích thước của trình của bạn. Nếu bạn cải thiện điểm số của mình, bạn có thể giữ điểm số cũ trong tiêu đề, bằng cách đánh bại chúng thông qua. Ví dụ:

# Ruby, <s>104</s> <s>101</s> 96 bytes

Nếu bạn muốn bao gồm nhiều số trong tiêu đề của mình (ví dụ: vì điểm của bạn là tổng của hai tệp hoặc bạn muốn liệt kê riêng các hình phạt cờ của thông dịch viên), hãy đảm bảo rằng điểm thực tế là số cuối cùng trong tiêu đề:

# Perl, 43 + 2 (-p flag) = 45 bytes

Bạn cũng có thể đặt tên ngôn ngữ thành một liên kết mà sau đó sẽ hiển thị trong đoạn trích bảng xếp hạng:

# [><>](http://esolangs.org/wiki/Fish), 121 bytes

var QUESTION_ID=95926,OVERRIDE_USER=12537;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"https://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

Thạch , 10 byte

:gÆfḍ⁵ṢQ¬Ḅ

Chấp nhận mẫu số và tử số (theo thứ tự đó) làm đối số. Trả về 0 khi kết thúc, 1 cho hoàn toàn định kỳ và 2 cho cuối cùng định kỳ. Hãy thử trực tuyến! hoặc xác minh tất cả các trường hợp thử nghiệm .

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

:gÆfḍ⁵ṢQ¬Ḅ  Main link. Arguments: d (denominator), n (numerator)

 g          Compute the GCD of d and n.
:           Divide d by the GCD, yielding the denominator of the simplified form.
  Æf        Yield all prime factors of the previous result.
    ḍ⁵      Test 10 for divisibility by each prime factor.
            This yields 1 for 2 and 5, 0 for all other primes.
      Ṣ     Sort the resulting Booleans.
       Q    Unique; deduplicate the sorted Booleans.
        ¬   Logical NOT; replace 0 with 1 and vice versa to yield one of the
            following arrays.
              [    ]  <- no prime factors (denominator 1)
              [   0]  <- only 2 and 5
              [1   ]  <- neither 2 nor 5
              [1, 0]  <- mixed
         Ḅ  Unbinary; convert from base 2 to integer.
            This maps [] and [0] to 0, [1] to 1, and [1, 0] to 2.

JavaScript (ES6), 70 .. 68 53 byte

f=(a,b,s=[],x)=>a?(s[a]^=a)?f(a*10%b,b,s,x||a):x==a:0

Trả về 0 khi kết thúc, đúng cho hoàn toàn định kỳ và sai cho cuối cùng định kỳ.

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

Những gì chúng ta đang làm ở đây thực sự là mô phỏng một bộ phận bằng tay:

1. a?...:0- Nếu tử số bằng 0, chúng ta dừng ở đây và quay lại 0. Trình tự kết thúc .
2. (s[a]^=a)?...:x==a- Nếu chúng ta đã gặp tử số này trước đó, điều đó có nghĩa là chuỗi này là định kỳ và sẽ lặp lại mãi mãi. Chúng tôi dừng lại ở đây và trả về truenếu abằng với giá trị đầu tiên xcủa chuỗi ( hoàn toàn là định kỳ ) hoặc falsenếu không ( cuối cùng là định kỳ ).
3. f(a*10%b,b,s,x||a)- Khác, chúng tôi nhân tử số avới 10. Chúng tôi tính phần còn lại của phép chia theo mẫu số b. Và chúng tôi lặp lại quá trình bằng cách sử dụng phần còn lại này làm tử số mới. (Chúng tôi cũng chuyển qua alàm giá trị đầu tiên của chuỗi nếu nó chưa được lưu trữ x.)

Thí dụ

• Màu xanh : tử số = 1
• Màu xanh lá cây : mẫu số = 7
• Màu đỏ : nhân với 10
• Đen : còn lại
• Màu xám : chữ số thương (chúng tôi không thực sự quan tâm đến chúng ở đây và đoạn mã trên hoàn toàn không tính toán chúng)

Python, 62 61 59 byte

f=lambda n,d,r=[0,0]:(r[:3]+r).count(n)or f(10*n%d,d,r+[n])

In 1 cho cuối cùng định kỳ, 2 cho hoàn toàn định kỳ và 4 cho chấm dứt.

Xác minh tất cả các trường hợp thử nghiệm trên repl.it .

Perl, 49 46 45 byte

Bao gồm +3 cho -p

Dựa trên ý tưởng tao nhã của Dennis nhưng được thực hiện theo cách hoàn hảo

Cung cấp số đầu vào trên STDIN

terminating.pl <<< "2 26"

termninating.pl:

#!/usr/bin/perl -p
/ /;1until$a{$_=$_*10%$' or$`}++;$_=$a{$`}

In 2 nếu chấm dứt. 1 nếu định kỳ và không có gì nếu cuối cùng định kỳ

Hàng loạt, 247 byte

@set/af=%1,g=%2
:g
@if not %f%==0 set/ah=g,g=f,f=h%%g&goto g
@set/ae=d=%2/g
:l
@set/ag=-~!(d%%2)*(!(d%%5)*4+1)
@if not %g%==1 set/ad/=g&goto l
@if %d%==1 (echo Terminating)else if %d%==%e% (echo Purely Periodic)else echo Eventually Periodic

Sử dụng thủ thuật gcd10 nhanh của tôi từ Phân số đến số thập phân chính xác . Rõ ràng tôi có thể lưu một loạt byte bằng cách sử dụng định dạng đầu ra tùy chỉnh.

JavaScript (ES6), 91 88 85 79 75 74 78 byte

f=(n,d,g=(a,b)=>b?g(b,a%b):a,t=g(d/=c=g(n,d),10))=>n*~-d?t-1?f(n/c,d/t)/0:1:+f

Đầu ra NaNđể chấm dứt, 1hoàn toàn định kỳ và Infinitycuối cùng là định kỳ.

Kiểm tra đoạn

f=(n,d,g=(a,b)=>b?g(b,a%b):a,t=g(d/=c=g(n,d),10))=>n*~-d?t-1?f(n/c,d/t)/0:1:+f

l=(n,d)=>console.log(n+"/"+d+":",f(n,d))

for(i=1;i<10;i++)for(j=0;j<i;j++)l(j,i);

Giải trình

Đầu tiên, chúng ta chia cả n và d cho gcd (d, n) , để giảm phân số về dạng đơn giản nhất của nó. Điều này cho phép chúng tôi tránh các tình huống như 2/6 trong đó kết quả sẽ được tính là hoàn toàn định kỳ. Chúng tôi cũng định nghĩa biến t là gcd (d, 10) ; cái này sẽ được sử dụng sau

Kiểm tra đầu tiên là n là 0 hay d là 1 . Nếu n * (d-1) bằng 0, chúng tôi trả về +fhoặc NaN : phân số đang kết thúc .

Kiểm tra tiếp theo là liệu t là 1 . Nếu vậy, chúng tôi trả về 1 : phần hoàn toàn là định kỳ .

Nếu t không phải là 1 , chúng ta chia d cho t , chạy lại toàn bộ hàm và chia cho 0. Nếu n / (d / t) kết thúc, điều này trả về NaN / 0 = NaN : phân số kết thúc . Mặt khác, nó trả về 1/0 = Infinity : phân số cuối cùng là định kỳ .

Toán học, 41 byte

Ordering@{d=Denominator@#,GCD[d,10^d],1}&

Đầu ra {3,1,2}nếu đầu vào có mở rộng thập phân kết thúc, {2,3,1}nếu đầu vào có mở rộng thập phân hoàn toàn theo chu kỳ và {3,2,1}nếu đầu vào có mở rộng thập phân cuối cùng định kỳ.

Dựa trên mánh khóe lén lút: nếu dlà mẫu số của một phân số ở mức thấp nhất, thì ước số chung lớn nhất dvà 10^dbằng dnếu dchỉ có 2s và 5s trong hệ số nguyên tố của nó; bằng 1nếu dkhông có 2s hay 5s trong hệ số nguyên tố của nó; và bằng một số nguyên ở giữa nếu dcó 2s / 5s và các số nguyên tố khác.

Các Orderingchức năng chỉ báo cáo nơi những yếu tố nhỏ nhất, bên cạnh nhỏ nhất, và lớn nhất của ba là, có quan hệ broken từ trái sang phải.

Lỗ hổng: trả về đầu ra biến thể {1,2,3}thay vì {3,1,2}nếu đầu vào bằng 0.

Mathicala, 46 byte, đồi trụy

b[a][[Log[d=Denominator@#,GCD[d,10^d]]]][[1]]&

Trả về a[[1]]nếu đầu vào có mở rộng thập phân kết thúc, b[[1]]nếu đầu vào có mở rộng thập phân hoàn toàn định kỳ và b[a]nếu đầu vào có mở rộng thập phân cuối cùng định kỳ. Ném một lỗi trong tất cả các trường hợp!

Như trên, chúng tôi muốn biết liệu ước số chung lớn nhất đó có bằng 1, d hoặc ở đâu đó ở giữa không. Logarit cơ sở của gcd đó bằng 0, 1 hoặc một cái gì đó ở giữa.

Bây giờ chúng ta bắt đầu tra tấn Mathicala. b[a][[n]]biểu thị phần nthứ của biểu thức b[a]. Vì vậy, b[a][[1]]trả lại a; b[a][[0]]trả lại b; và b[a][[x]], trong đó xcó một số từ 0 đến 1, làm cho Mathicala đưa ra lỗi "Phần :: pkspec1: Biểu thức xkhông thể được sử dụng làm thông số kỹ thuật của phần." và trả lại không b[a][[x]]đánh giá.

Điều này đã phân biệt ba trường hợp một cách thích hợp, ngoại trừ đầu ra cho trường hợp định kỳ cuối cùng là b[a][[x]], không phải là hằng số vì xlà logarit thực tế của một cái gì đó. Vì vậy, sau đó chúng tôi áp dụng [[1]]cho các đầu ra đã được mô tả. Bởi vì cách Mathicala thể hiện trong nội bộ b[a][[x]], kết quả của b[a][[x]][[1]]chỉ đơn giản là b[a]. Mặt khác, áp dụng [[1]]cho các akết quả trong một lỗi khác "Phần :: partd: Đặc tả phần một [[1]] dài hơn độ sâu của đối tượng." và trả về không a[[1]]đánh giá (và tương tự cho b).

Lỗ hổng: nói dối về đầu vào 0, trả về b[a]thay vì a[[1]].

C byte byte

Lấy hai số nguyên từ stdin, in 1 cho hoàn toàn định kỳ, -1 cho cuối cùng định kỳ và 0 để kết thúc.

int r;main(_,n,d){_-1?_-2?d-1?d%2&&d%5?r=1:d%2?main(3,n,d/5):main(3,n,d/2),r=r?-1:0:r=0:d?main(2,d,n%d):r=n:scanf("%d %d",&n,&d),main(2,n,d),main(3,n/r,d/r),printf("%d",r);}

Ung dung:

// returns 1 for periodic, 0 for terminating, <0 for eventually periodic
int periodic(int num, int den) { // 3
    if (den == 1) return 0;
    if (den % 2 && den % 5) // pure periodic
        return 1;
    if (den % 2) return periodic(num,den/5) ? -1 : 0;
    return periodic(num,den/2) ? -1 : 0;
}

int gcd(int num, int den) { // 2
    if (den) 
        return gcd(den,num%den);
    return num;
}

int main(n,d) // 1
{
    scanf("%d %d",&n,&d);
    printf("%d",periodic(n/gcd(n,d),d/gcd(n,d)));
    return 0;
}   

Nửa gôn:

int r;main(_,n,d){
    _-1? 
    _-2?
    // periodic
    d-1?
        d%2&&d%5?
            r=1:
                d%2?
                    main(3,n,d/5): //periodic
                    main(3,n,d/2), //periodic
                        r=r?-1:0:
                r=0
    // gcd
    :d?main(2,d,n%d):r=n // gcd
    // main
    :scanf("%d %d",&n,&d),
     main(2,n,d), // gcd
     main(3,n/r,d/r), // periodic
     printf("%d",r);
}

Trên thực tế , 15 byte

Điều này dựa trên câu trả lời của Dennis 'Jelly . 0 là chấm dứt, 1 là hoàn toàn định kỳ và 2 cuối cùng là định kỳ. Gợi ý chơi golf chào mừng. Hãy thử trực tuyến!

▼Ny9u♀%SR♂b╔2@¿

Ungolfing

      Implicit input [a, b].
▼     Divide a and b by gcd(a,b).
Ny    Get the unique prime divisors of the reduced denominator.
9u    Push 10.
♀%    10 mod every member of uniq_p_d.
SR    Sort the mods and reverse.
♂b    Logical buffer. Converts every (10 % p != 0) to 1, and everything else to 0.
        Meaning if 2 or 5 divided b, they are now 0, and every other prime is now 1.
╔     Uniquify the list.
        If terminating, return [0].
        If purely periodic, return [1].
        If eventually periodic, return [1, 0].
        Else, (if b was 1), return [].
2@¿   Convert from binary to decimal. Return 0, 1, or 2.
      Implicit return.

Toán học, 44 byte

If[ListQ@Last@#,Length@#==1]&@@RealDigits@#&

Trả về Nullcho Chấm dứt, Truehoàn toàn theo định kỳ và Falsecuối cùng là định kỳ.

Giải trình

RealDigits

Tìm phần mở rộng thập phân của N. (các chữ số lặp lại được bao quanh bởi một đầu phụ List {}).

ListQ@Last@#

Kiểm tra xem phần tử cuối cùng của khai triển thập phân là a List.

Length@#==1

Nếu điều kiện trên là True, kiểm tra xem toàn bộ phần mở rộng thập phân có bao gồm một thứ không. (A Listđược tính là một thực thể). (trả lại Truehoặc False)

(Nếu điều kiện là False, thì a Nullđược trả về vì không có đối số thứ ba cho If)

Bình thường , 31 27 byte

AQ={P/HiGH?l@H=j25T?l-HT1Z2

Đầu vào

4,12

Bạn có thể thử nó ở đây . In 1 cho cuối cùng định kỳ, 2 cho hoàn toàn định kỳ và 0 cho chấm dứt. Đây là lần đầu tiên tôi trả lời bằng codegolf. Mọi góp ý đều được chào đón.

Giải trình

AQ                                              // 1st element to G and 2nd element to H
    ={P                                         // Assign unique prime factors to H
        /H                                      // Simplify denominator
            iGH                                 // Find GCD
                ?l                              // Check length of filtered H
                    @H                          // Filter H by Y
                        =j25T                   // Assign a set [2,5] to T
                                ?l-HT           // Check length of H - T
                                        1Z2     // Print result

Lưu ý rằng [2,3] được lọc bởi [2,5] = [2] nhưng [2,3,5] - [2,5] = [3].

PARI / GP, 64 byte

f(x,y)=if(setminus(factor(y=y/gcd(x,y))[,1]~,[2,5]),gcd(y,10)>1)

Đầu ra không có gì để kết thúc, 0 cho hoàn toàn và 1 cho cuối cùng định kỳ.

Không ưa thích lắm, tôi hy vọng điều gì đó tốt hơn khi tôi bắt đầu.

05AB1E , 16 11 byte

Đã lưu 5 byte nhờ @Adnan!

¿²r/fTrÖbÙJ

In 0 cho Hoàn toàn định kỳ, 1 cho Chấm dứt và 10 cho Định kỳ cuối cùng.

Giải trình:

                 # Implicit input
                 # Implicit input
  ¿              # Take GCD of numbers
   ²             # Push top value from input register
    r            # Reverse stack order
     /           # Divide (denominator by GCD)
      f          # Find unique prime factors
       TrÖ       # Test 10 for divisibility
          b      # Convert (True -> 1, False -> 0)
           Ù     # Deduplicate array
            J    # Join chars in array
                 # Implicit print

Đầu vào được lấy dưới dạng p dòng mới q .

Hãy thử trực tuyến!

PHP, 126 byte

$d=$argv[2];$a[]=$n=$argv[1];while($n%$d&&!$t){$n*=10;$t=in_array($n%=$d,$a);$a[]=$n;}if($a[1]&&$t)$t+=$a[0]!=end($a);echo+$t;

In 0 cho chấm dứt và 1 cho hoàn toàn 2 định kỳ cuối cùng. Hãy để tôi giải thích nếu một tử số là hai lần trong mảng ở đây bắt đầu phiên định kỳ nếu nó bị chấm dứt echo end($a);giá trị là 0 Nếu bạn không tin tưởng tôi đặt $t=count($a)>$d?2:0;vào vòng lặp

Để làm cho nó rõ ràng hơn xin vui lòng thêm print_r($a);hoặc var_dump($a);hoặc json_encode($a);sau vòng lặp

bạn có thể thấy một tử số hai lần hoặc một số 0 ở cuối mảng nếu tử số là hai lần đếm các mục giữa hai mục và bạn có thể nhận được độ dài của định kỳ và bạn có thể thấy vị trí của tử số đầu tiên nơi bắt đầu định kỳ

Vì vậy, sau đó chúng ta có thể tìm thấy vị trí và độ dài của chuỗi tuần hoàn với if($t){echo $p=array_search(end($a),$a);echo $l=count($a)-$p-1;}

Hình dung định kỳ

$d=$argv[2];
$a[]=$n=$argv[1]; #array numerator
$r[]=$n/$d^0; #array result of the division
$r[]=".";
while($n%$d&&!$t){
    $n*=10; 
    $n-=$d*$r[]=$n/$d^0;
    $t=in_array($n%=$d,$a); #stop if numerator is twice 
    $a[]=$n;
}
if($a[1]&&$t)$t+=$a[0]!=end($a); #periodic term starts directly?
if($t){
    echo $p=array_search(end($a),$a)."\n"; #output the beginning position of the periodic term
    echo $l=count($a)-$p-1; #output the length of the periodic term
    echo "\n";
    echo str_repeat(" ",2+$p).str_repeat("_",$l-1)."\n"; #visualize the periodic term
    #echo join(array_slice($r,0,1+$p)).join(array_slice($r,1+$p))."\n";# if you want only the periodic term 
    echo join($r); #result if the division
}
echo+$t; # 0 terminated 1+2 periodic 2 periodic start not directly

Đầu ra trực quan hóa thuật ngữ định kỳ

1/18
   _
0.05

1/12
    _
0.083

1/13
  ______
0.076923

1/14
   ______
0.0714285

Một cách khác với 130 byte

$r=bcdiv(($z=$argv)[1],$z[2],400);for($p=2;$i++<200;)if(substr($r,2,$i)==substr($r,2+$i,$i))$p=1;echo strlen(rtrim($r,0))<50?0:$p;

Phiên bản mở rộng

$r=bcdiv(($z=$argv)[1],$z[2],400); # 100 is the maximal denominator 
# we need a string length with the double value of the sum the length from 1 until the denominator
for($p=2;$i++<200;)if(substr($r,2,$i)==substr($r,2+$i,$i))$p=1;
# all results begin with 0. 
#take two substrings with the same length after that and comparize both. 
#if we found 2 same substrings we have a periodic which starts at the first decimal place
echo strlen(rtrim($r,0))<50?0:$p; 
# if we can trim the length of the result we have a terminated result