Giữa các phân số

Các thách thức:

Bạn sẽ cần tạo mã mất ít nhất 3 đầu vào; 2 số nguyên và "biểu diễn phân số" - loại nào phù hợp với ngôn ngữ của bạn để biểu thị số gia phân số) tức là. Nếu bạn chọn chuỗi, đầu vào sẽ là "1/4" hoặc bạn có thể chọn thêm 2 đầu vào số nguyên hoặc một tuple hoặc w / e.

Đầu vào có thể là bất cứ nơi nào hợp lý (STDIN, đối số chức năng, từ tệp, v.v.) và do đó có thể xuất (STDOUT, giá trị trả về của hàm, sang tệp, v.v.)

Quy tắc:

1. "Phân số" đầu vào sẽ luôn là phân số hợp lệ, nhỏ hơn 1; ví dụ "1/4"
2. Số nguyên đầu vào thứ hai sẽ luôn có giá trị cao hơn số nguyên đầu tiên. IE số nguyên đầu vào đầu tiên sẽ luôn có giá trị thấp hơn giá trị thứ hai.
3. Các số nguyên đầu vào có thể âm.
4. Các phân số xuất ra nên được giảm càng nhiều càng tốt (đơn giản hóa)

Mã sẽ cần xuất ra mọi "bước phân số" giữa 2 số theo gia số của phân số đầu vào.

Mã phải là một chương trình hoặc chức năng như được nêu ở đây

Ví dụ 1:

Đầu vào: -2,3,"1/2"

Đầu ra:

 -2
 -3/2 
 -1 
 -1/2 
  0 
  1/2 
  1 
  3/2  
  2 
  5/2 
  3

Ví dụ 2:

Đầu vào: 1,2,"2/3"

Đầu ra:

1
5/3
2

hoặc là

1
4/3
2

Lưu ý: Đếm có thể bắt đầu từ một trong hai hướng (cảm ơn bạn @Mego)

Đây là môn đánh gôn , vì vậy câu trả lời ngắn nhất bằng byte sẽ thắng.

Octave, 34 30 byte

@(a,b,c)rats(union([a:c:b],b))

Bây giờ lấy phân số dưới dạng biểu thức số thay vì tử số và mẫu số riêng biệt.

Mẫu trên ideone

Toán học, 16 byte

Range@##⋃{#2}&

Hàm không tên có hai số nguyên và số hữu tỷ và trả về danh sách các số, ví dụ:

Range@##⋃{#2}&[-2, 3, 1/2]
(* {-2, -(3/2), -1, -(1/2), 0, 1/2, 1, 3/2, 2, 5/2, 3} *)

Mathicala Rangethực hiện chính xác những gì thử thách yêu cầu, ngoại trừ việc nó bỏ qua giới hạn trên nếu sự khác biệt giữa giới hạn dưới và giới hạn trên không chính xác là bội số của kích thước bước. Do đó, chúng tôi lấy Union(sử dụng ⋃) với danh sách chỉ chứa giới hạn trên để đảm bảo rằng nó xuất hiện chính xác một lần. Lưu ý rằng Unionsẽ sắp xếp kết quả nhưng chúng tôi muốn nó được sắp xếp theo cách nào, vì kích thước bước luôn dương. Ngoài ra, vì chúng tôi đang làm việc với các lý trí, chúng sẽ tự động giảm càng nhiều càng tốt.

T-SQL 2012+, 831 535 477 270 246 240 219 byte

Xin lưu ý đây là một lớp lót - sql không có chức năng xây dựng để giảm phân số. Có thể không phải là ngôn ngữ tốt nhất cho loại câu hỏi này. Nó là con người có thể đọc được (loại - so với một số ngôn ngữ khác).

DECLARE @f INT=-5,@t INT=3,@n INT=3,@ INT=8;

WITH C as(SELECT
top((@t*@-@f*@)/@n+1)ROW_NUMBER()OVER(ORDER BY @)M
FROM sys.messages)SELECT(SELECT
IIF(V%@=0,LEFT(V/@,9),CONCAT(V/MAX(M),'/',ABS(@)/MAX(M)))FROM c
WHERE V%M=0AND @%M=0)FROM(SELECT
@f*@+@n*~-M V FROM c)k

Dùng thử trực tuyến

Python 2, 81 byte

from fractions import*
a,b,c=map(Fraction,input())
while a<b:print a;a+=c
print b

Dùng thử trực tuyến

Haskell, 31 26 byte

f a b c=min[b]$a:f(a+c)b c

Đánh giá lười biếng FTW! Bản giới thiệu:

*Main> import Data.Ratio
*Main Data.Ratio> f (-2) 3 (1%2)
[(-2) % 1,(-3) % 2,(-1) % 1,(-1) % 2,0 % 1,1 % 2,1 % 1,3 % 2,2 % 1,5 % 2,3 % 1]
*Main Data.Ratio> f 1 2 (2%3)
[1 % 1,5 % 3,2 % 1]

(Ban đầu tôi bị cám dỗ bởi [a,a+c..b]ký hiệu của Haskell , nhưng nó có một số quirks cần một cái gì đó như f a b c|l<-[a,a+c..b-c/2]=l++[b|last l<b]cho 41 byte hoặc f a b c=[x|x<-[a,a+c..],x<b]++[b]cho 33.)

MATL , 16 15 byte

3$:3Gvu9X10ZGZD

Điều này có thể thất bại cho mẫu số rất lớn. Tôi hy vọng định dạng đầu ra là chấp nhận được.

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

3$:    % take three inputs and generate range
3G     % push third input again
v      % vertically concatenate. Gives vertical array as output 
u      % get unique elements (i.e. remove the last one if it is repeated)
9X1    % predefined literal 'rat'
0ZG    % set rational format
ZD     % display using that format

Ruby , 32 54 48 byte

->a,b,c{(a..b).step(c){|x|p x%1>0?x:x.to_i};p b}

Giải pháp này dựa trên câu trả lời Python của Mego và giả định rằng csẽ luôn là Rationalđịnh dạng phân số của Ruby. Hãy thử trực tuyến!

Chỉnh sửa: Đã sửa lỗi trong đó số nguyên không được trình bày như số nguyên. -6 byte nhờ Not That Charles và MegaTom.

Các chức năng được gọi theo cách này:

> f=->a,b,c{(a..b).step(c){|x|p x%1>0?x:x.to_i};p b}
> f[1,4,Rational(2,3)]
1
(5/3)
(7/3)
3
(11/3)
4

Julia, 14 byte

f(a,b,c)=a:c:b

Điều này tương tự như câu trả lời của Mathicala, ngoại trừ các phạm vi của Julia đã ở định dạng mong muốn, do đó, nó thậm chí còn ngắn hơn. Cũng trả về một bộ sưu tập các số. Ví dụ đầu ra:

11-element StepRange{Rational{Int64},Rational{Int64}}:
 -3//1,-5//2,-2//1,-3//2,-1//1,-1//2,0//1,1//2,1//1,3//2,2//1

Lưu ý rằng các số nguyên được hiển thị với 1 trong mẫu số và dấu gạch chéo kép được sử dụng cho các phân số. Để có được đầu ra chính xác như được xác định trong câu hỏi yêu cầu thêm một số mã:

f(a,b,c)=map(x->println(x.num,x.den<2?"":"/$(x.den)"),a:c:b)

Matlab với Hộp công cụ tượng trưng / Octave với SymPy, 27 byte

Cảm ơn @sanchises đã chỉ ra một lỗi, hiện đã được sửa

@(a,b,c)sym(union(a:c:b,b))

Đây là một chức năng ẩn danh. Để gọi nó, gán nó cho một biến hoặc sử dụng ans.

Thí dụ:

>> @(a,b,c)sym(union(a:c:b,b))
ans = 
    @(a,b,c)sym(union(a:c:b,b))
>> ans(-2,3,1/2)
ans =
[ -2, -3/2, -1, -1/2, 0, 1/2, 1, 3/2, 2, 5/2, 3]

Javascript, 108 90 86   81 byte

(a,b,n,d)=>{var s="";for(a=a*d;a<b*d;a+=n)s+=(a%d?a+"/"+d:a/d)+" ";s+=b;return s}

Một chức năng ẩn danh. Sau khi gán cho một biến được đặt tên với khoảng trắng:

var f=(a,b,n,d)=>
{ var s="";
  for(a=a*d; a<b*d; a+=n)
    s+= (a%d ? a + "/" + d : a/d) + " ";
  s+=b;
  return s
}

Ví dụ kiểm tra:

console.log(f(1,2,1,8)); //writes:
1 9/8 10/8 11/8 12/8 13/8 14/8 15/8 2

console.log(f(-3,3,4,7)); // writes:
-3 -17/7 -13/7 -9/7 -5/7 -1/7 3/7 1 11/7 15/7 19/7 3 

Một cách tiếp cận bắt buộc sử dụng javascript, không có đệ quy, thư viện hoặc lập trình chức năng.

Smalltalk - 89 byte

Đối với một lần Smalltalk gần như cạnh tranh!

Number extend[p:e q:i[|h|self to:e by:i do:[:x|h:=x. x printNl].h=e ifFalse:[e printNl]]]

Gọi như thế này:

> 2 p:5 q:1/2
2
5/2
3
7/2
4
9/2
5

> 1 p:2 q:2/3
1
5/3
2

R - 71 byte

Giả sử bạn đã cài đặt MASSgói

f=function(x,y,z)MASS::fractions(union(seq(x,y,eval(parse(text=z))),y))

> f(1, 2, '1/3')
[1]   1 4/3 5/3   2
> f(2, 5, '1/2')
[1]   2 5/2   3 7/2   4 9/2   5

Pyret, 56 byte

{(b,e,n,d):link(e,map(_ / d,range(b * d, e * d))).sort()}

Đưa vào đầu (b), kết thúc (e), tử số (n) và mẫu số (d). Tạo một loạt các số nguyên, chia chúng thông qua và nối phần cuối vào danh sách (bằng cách liên kết và sau đó sắp xếp).