Raul, This has some good ideas. I would teach f before g . And I also
translated your ideas into my style as an alternative.
f=: 13 :' 5>: %:(*:i:y)+/ *:i:y'
f
5 >: [: %: ([: *: i:) +/ [: *: i:
g=: 13 :'y>:+/&.*:/~i:y'
g
] >: [: +/&.*:/~ i:
dmsk2=: 13 :'1j1 #"1(y*1+ ?($y)$#x){'' '',x'
dmsk2
1j1 #"1 (] * 1 + [: ? ([: $ ]) $ [: # [) { ' ' , [
'/|\o' dmsk2 g 5
|
o \ / \ | / |
o \ / / \ o / \ |
\ o o | | o / \ |
o / / o o \ \ \ |
\ / / o o / \ / \ \ /
o \ | \ | | o o |
\ / \ / o \ o / \
| \ \ / | o | | /
\ o \ | \ | \
/
The shamrock is very attractive!
Linda
-----Original Message-----
From: programming-boun...@jsoftware.com
[mailto:programming-boun...@jsoftware.com] On Behalf Of Raul Miller
Sent: Tuesday, March 20, 2012 10:34 AM
To: Programming forum
Subject: Re: [Jprogramming] Challenge 8 A Shamrock for St. Patrick
It looks like 3/17/2012 12 am EST is in the past, so I dug up the solution I
wrote for this, and here it is:
rmsk=:2 :0
1j1 #"1 (' ',m) {~ n * 1 + ($n) ?@$ (#m)"_
)
gf=: '/|\o' rmsk (5>:+/&.*:/~i:5)
sham=: 'Oo' rmsk (5 >: <./(5 10, 13 5,:13 14) +/&.:*:@:-"1/ ,"0/~i.21)
Example use:
gf ''
\
\ o o o \ o /
| / o o \ \ o / |
o \ / \ o | | / /
/ / o | | / | \ |
\ o / o | o o \ o o \
/ o / / o | | \ \
| | o \ | | / / /
o o \ | o \ | o |
\ o o | / | /
/
sham ''
O
O O O o O O O
O o O O O o o O o
o o o o O O o o O
O O O O o o o O O
o o O O o O o o O o o
o O o o o o o o o
O O o O O o O o O
o o O O o O o O o O
O o O O o o o O o o O o o o O O
o o o O o o O o o o o O o O O O O o
o o o o O o o o O o o o o o O o O O
O O O O O o o O o O o o O o o O o O
o o o O O o O o o O o o O O o O o O o O
O o O o o O O O O O o o O O O O o o
O O o o O o o o O O O O o o O o o O
O O o O O O O o o o o O o o o o o o
o O O o O o O O o o O O o o
o o
--
Raul
On Fri, Mar 2, 2012 at 2:33 AM, Linda Alvord <lindaalv...@verizon.net> wrote:
> Challenge 8 A Shaamrock for St. Patrick PLEASE DO NOT RESPOND UNTIL
> 3/17/2012 12 am EST
>
> To get started for this challenge, begin with a round shape. Imagine a
> grapefruit tree as seen from an airplane and define gf which applied to a
> list y looks like this.
> First produce one and then two grapefruit trees like these.
>
> gf y
> O
> \ | O \ / O |
> / / O O \ O \ O /
> \ O | / \ | O \ O
> | O O / \ O \ O O
> O O / \ O O / / / / /
> | \ O O O O | / O
> O O / O O | / O O
> O \ / \ O O / | O
> | O O \ O O \
> O
> (gf y),.gf y
> / \
> O \ O O / O / / O / | | | /
> | \ / \ O O \ O O O | \ \ \ | \ O O
> O \ / \ \ \ O / / | | O \ O O \ / \
> O O O | | O / / O | O \ O / O O O \
> \ / O O O O O | O \ / \ O O / \ / | \ O O O
> O / | / O O / | | | \ / O / \ \ O |
> \ | O O | O \ \ O / O / O / \ | \ |
> O \ \ / O / O O / / / O / \ / | \ O
> O \ \ O \ / \ O | \ | / O O
> O \
>
> Now that you are able to make a round shape, create a shamrock of any size
> and shape that you like as a tribute to St. Patrick.
>
> Linda
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
