Mercurial > hg > jgplsrc

view test/g430inv.ijs @ 0:e0bbaa717f41 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
lol J
author Jordi Gutiérrez Hermoso <jordigh@octave.org>
date Mon, 25 Nov 2013 11:56:30 -0500
parents
children
line wrap: on
line source

NB. inverses of scans ---------------------------------------------------

inv=: 1 : 'x^:_1'

w -:  +/\  inv  +/\  w=:_20+?20 3$50
w -:  -/\  inv  -/\  w=:_20+?30 3$50
w -:  */\  inv  */\  w=:w+0=w=:0.5*_20+?25 4$50
w -:  %/\  inv  %/\  w=:w+0=w=:0.5*_20+?25 4$50
w -:  =/\  inv  =/\  w=:1=?40 2$3
w -: ~:/\  inv ~:/\  w=:1=?40 2$3

w -:  +/\. inv  +/\. w=:_20+?20 3$50
w -:  -/\. inv  -/\. w=:_20+?30 3$50
w -:  */\. inv  */\. w=:w+0=w=:0.5*_20+?25 4$50
w -:  %/\. inv  %/\. w=:w+0=w=:0.5*_20+?25 4$50
w -:  =/\. inv  =/\. w=:1=?40 2$3
w -: ~:/\. inv ~:/\. w=:1=?40 2$3


4!:55 ;:'inv w'