Di antara fraksi

Tantangan:

Anda harus membuat kode yang mengambil minimal 3 input; 2 bilangan bulat dan "representasi fraksi" - tipe yang sesuai dengan bahasa Anda untuk mewakili kenaikan fraksi) yaitu. Jika Anda memilih string, inputnya adalah "1/4" atau Anda bisa memilih 2 input integer tambahan atau tuple atau w / e.

Input dapat masuk akal (STDIN, argumen fungsi, dari file, dll.), Dan demikian juga dapat output (STDOUT, nilai pengembalian fungsi, ke file, dll.)

Aturan:

1. Input "fraksi" akan selalu menjadi fraksi yang valid, kurang dari 1; contoh "1/4"
2. Input integer kedua akan selalu memiliki nilai yang lebih tinggi dari integer pertama. Yaitu integer input pertama akan selalu memiliki nilai lebih rendah dari yang kedua.
3. Bilangan bulat input bisa negatif.
4. Fraksi yang dihasilkan harus dikurangi sebanyak mungkin (disederhanakan)

Kode tersebut harus menampilkan setiap "langkah fraksi" antara 2 angka dengan penambahan fraksi input.

Kode harus berupa program atau fungsi seperti yang dinyatakan di sini

Contoh 1:

Memasukkan: -2,3,"1/2"

Keluaran:

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

Contoh 2:

Memasukkan: 1,2,"2/3"

Keluaran:

1
5/3
2

atau

1
4/3
2

Catatan: Penghitungan dapat dimulai dari salah satu arah (terima kasih @Mego)

Ini adalah kode-golf , jadi jawaban tersingkat dalam byte menang.

Oktaf, 34 30 byte

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

Sekarang anggap fraksi sebagai ekspresi numerik daripada pembilang dan penyebut yang terpisah.

Contoh di ideone

Mathematica, 16 byte

Range@##⋃{#2}&

Fungsi tanpa nama yang mengambil dua bilangan bulat dan bilangan rasional dan mengembalikan daftar bilangan, misalnya:

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

Mathematica Rangemelakukan persis apa yang diminta tantangan, kecuali bahwa ia menghilangkan batas atas jika perbedaan antara batas bawah dan batas atas bukan kelipatan dari ukuran langkah. Oleh karena itu kami mengambil Union(menggunakan ⋃) dengan daftar yang hanya berisi batas atas yang memastikan bahwa itu muncul tepat satu kali. Perhatikan bahwa Unionakan mengurutkan hasilnya tetapi kami tetap ingin mengurutkannya, karena ukuran langkah selalu positif. Juga karena kami bekerja dengan rasional, mereka secara otomatis dikurangi sebanyak mungkin.

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

Harap perhatikan ini adalah satu garis - sql tidak memiliki fungsi bawaan untuk mengurangi fraksi. Mungkin bukan bahasa terbaik untuk jenis pertanyaan ini. Ini dapat dibaca manusia (jenis - dibandingkan dengan beberapa bahasa lain).

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

Cobalah online

Python 2, 81 byte

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

Cobalah online

Haskell, 31 26 byte

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

FTW evaluasi malas! Demo:

*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]

(Saya awalnya tergoda oleh [a,a+c..b]notasi Haskell , tetapi memiliki beberapa kebiasaan yang mengharuskan sesuatu seperti f a b c|l<-[a,a+c..b-c/2]=l++[b|last l<b]41 byte atau f a b c=[x|x<-[a,a+c..],x<b]++[b]33.)

MATL , 16 15 byte

3$:3Gvu9X10ZGZD

Ini mungkin gagal untuk penyebut yang sangat besar. Saya harap format output dapat diterima.

Cobalah online!

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}

Solusi ini didasarkan pada jawaban Python Mego dan mengasumsikan bahwa cakan selalu menjadi Rational, format pecahan Ruby. Cobalah online!

Edit: Memperbaiki bug di mana bilangan bulat tidak disajikan seperti bilangan bulat. -6 byte terima kasih kepada Not That Charles dan MegaTom.

Fungsi dipanggil dengan cara ini:

> 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

Ini mirip dengan jawaban Mathematica, kecuali bahwa rentang Julia sudah dalam format yang diinginkan, sehingga bahkan lebih pendek. Juga mengembalikan koleksi angka. Contoh output:

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

Perhatikan bahwa bilangan bulat ditampilkan dengan 1 dalam penyebut, dan garis miring digunakan untuk pecahan. Untuk mendapatkan output persis seperti yang didefinisikan dalam pertanyaan memerlukan beberapa kode lagi:

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

Matlab dengan Symbolic Toolbox / Octave with SymPy, 27 byte

Terima kasih kepada @sanchises karena menunjukkan kesalahan, sekarang diperbaiki

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

Ini adalah fungsi anonim. Untuk menyebutnya, tetapkan ke variabel atau gunakanans .

Contoh:

>> @(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}

Fungsi anonim. Setelah penugasan ke variabel bernama dengan spasi putih:

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
}

Contoh uji:

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 

Pendekatan imperatif menggunakan javascript, tidak ada rekursi, pustaka atau pemrograman fungsional.

Smalltalk - 89 byte

Untuk sekali ini Smalltalk hampir kompetitif!

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

Panggil seperti ini:

> 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

Mengasumsikan Anda telah menginstal MASSpaket

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()}

Dibawa di awal (b), akhir (e), pembilang (n), dan penyebut (d). Membuat serangkaian bilangan bulat, membaginya melalui dan menambahkan akhir ke daftar (dengan menautkan dan kemudian menyortir).