[Jprogramming] pick up sticks

[Linda Alvord]

Try this in JHS on a laptop.
load 'plot'
f=: 13 :'((<.-:y),2)$(?y#11)j.?y#11'
'pensize 10' plot f 12
g=: 13 :'(y,2)$2#(i.y)j.i.y'
'point;pensize 10' plot g 12
h=: 13 :'((y#0)j.i.y),.(y#<:y)j.i.y'
'pensize 10' plot h 6
v=: 13 :'((i.y)j.y#0),.(i.y)j.y#<:y'
'pensize 10' plot v 6
'pensize 10' plot (h 6),v 6

Simplifications welcome.
Linda



Sent from AOL Mobile Mail