Thanks. It's very clever!
To follow the problem statement precisely, you need to read from stdin
and print to stdout. Hence,
([:1!:2&2 a.{~[:>./({:{.!.32~_1-1 0&{)@".;._2)@(1!:1)3
It's 54 bytes long.
2007/5/17, Henry Rich <[EMAIL PROTECTED]>:
v =. a.{~[:>./({:{.!.32~_1-1 0&{)@".;._2@(1!:1)
v <'c:/you.txt'
___________ ____
______/ \__// \__/____\
_/ \_/ : //____\\
/| : : .. / \
| | :: :: \ /
| | :| || \ \______/
| | || || |\ / |
\| || || | / | \
| || || | / /_\ \
| ___ || ___ || | / / \
\_-_/ \_-_/ | ____ |/__/ \
_\_--_/ \ /
/____ /
/ \ /
\______\_________/
Henry Rich
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On Behalf Of June Kim
> Sent: Wednesday, May 16, 2007 9:17 PM
> To: Programming forum
> Subject: [Jprogramming] Bob Ross' The Joy of ASCII Art
>
> Hi,
>
> Have a look at this codegolf challenge :
> http://codegolf.com/bob-ross-the-joy-of-ascii-art
>
> To put it shortly, read the x y coordinates and the character value
> and display them. (there are a few tricky points though; read the web
> page)
>
> The top(in terms of the source size) 17 codes are all written in Perl
> and all 51 bytes long.
>
> I did it in J and it was longer than 51(maybe I didn't try it hard
> enough?). Can anyone come up with a code shorter than 51?
> ----------------------------------------------------------------------
> 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
