RosettaCodeData/Task/Arithmetic-Rational/J/arithmetic-rational-5.j

mutadd=:adverb define
   (m)=: (".m)+y
)

mutsub=:adverb define
   (m)=: (".m)-y
)