[Jprogramming] k programming challenge
Linda A Alvord
lindaalvord at verizon.net
Thu Feb 4 19:47:58 UTC 2016
I had one more step:
words3=: 13 : ';:'' ''(([: I. tolower = toupper) y)}tolower y'
(words A)-:words3 A
1
Linda
-----Original Message-----
From: Programming [mailto:programming-bounces at forums.jsoftware.com] On Behalf Of Linda A Alvord
Sent: Thursday, February 4, 2016 2:25 PM
To: programming at jsoftware.com
Subject: Re: [Jprogramming] k programming challenge
Here's a version of Raul''s "words".
It eliminates At, Atop, Gerund and Rank.
It should work in JTECH Grade 4.
require'csv web/gethttp'
const=: gethttp 'http://usconstitution.net/const.txt'
words=: [: ;: ' '"_`(I.@:= toupper)`]}~@tolower ]A=:'Sea a Seahorse." "Where?" "The Seashore!'
words2=: 13 : ';:'' ''(([: I. tolower = toupper) y)}tolower y'
(words A)-:words2 A
('solution.txt';'|';'') writedsv~ |."1\:~ (<@#/.~,.~.)words const
('solution.txt';'|';'') writedsv~ |."1\:~ (<@#/.~,.~.)words2 const
Maybe you can simplify it.
Linda
-----Original Message-----
From: Programming [mailto:programming-bounces at forums.jsoftware.com] On Behalf Of Linda A Alvord
Sent: Saturday, January 30, 2016 7:25 AM
To: programming at jsoftware.com
Subject: Re: [Jprogramming] k programming challenge
The Power of Words!
require'csv web/gethttp'
]A=:'"Sea a Seahorse." "Where?" "The Seashore!'
words=: [: ;: ' '"_`(I.@:= toupper)`]}~@tolower ;:A words A (,.;:A);<,.words A
Linda
-----Original Message-----
From: Programming [mailto:programming-bounces at forums.jsoftware.com] On Behalf Of Brian Schott
Sent: Thursday, January 28, 2016 9:40 AM
To: Programming forum
Subject: Re: [Jprogramming] k programming challenge
Henry,
Yes, your information makes the Dissect much more useful.
I'm sorry for mistaking |. for I. And now I notice that the alternating colors of the numbers in that block are signal 2 first single digit numbers, followed by double digit numbers. Before I thought they were all double digit and I could make no sense of the block.
(I was disappointed in the linewrap problems in your reply so I tried using jsoftware.com/forumsearch but unfortunately I could not find my message
there.)
Thanks,
([: ;: ' '"_`(I.@:= toupper)`]}~@tolower)y
+----------------------------------+
| y
|
| 66
|
|Though, of course, it's po...
|
|
|
+-----------------+----------------+
|
+-----------------+----------------+
| tolower 1
|
|though, of course, it's po...
|
|
|
|
|
+----------------------------------+
+-+------------+--------+--------------------|
| | | |
+----------------------------------+
| | | | | toupper 1
|
| | | | |THOUGH, OF COURSE, IT'S PO...
|
| | | | |
|
+------+-+-+ | | |
|
| 1 (m"_) 1| | |
+-----------------+----------------+
| atom | | +---------------| |
| | |
+-------------------+--------------+
+-----+----+ | | 0=0
|
| | | 66
|
+-------------+---------------+-+ |0000001000...
|
| 0 m} 1 | |
|
| 66 |
+-----------------------------+----+
|though of course it s po... | +---------------+ |
+--------------+----------------+---------------+ I. 1 | |
| | 12 +-----+
+--------------+----------------+ |69161720223134 |
| ;: 11 | +---------------+
|though|of|course|it|s|po... |
| |
+-------------------------------+
On Wed, Jan 27, 2016 at 4:26 PM, Henry Rich <henryhrich at gmail.com> wrote:
> That's not |. in the lower-right - it's I.
>
> Dissect displays ~ indirectly: by switching the wiring (for x u~ y) or
> wiring a result to both x and y (for u~ y).
>
> Here, the display is streamlined considerably: the block for ] is
> deleted (replaced by a wire) and the verb ' '"_ is shown simply as a
> constant. The m} block has a left input from ' '"_, a right input
> from tolower, and a control input (on the right) from I. . tolower feeds into 3 blocks:
> toupper, =, and m} .
>
> If you want to see more of the original, you can go to Preferences and
> check 'Show ][ and 0-9:'. See if you like that better.
>
> Henry Rich
>
>
>
>> ([: ;: ' '"_`(I.@:= toupper)`]}~@tolower)y
>> +----------------------------------+
>> | y
>> |
>> | 66
>> |
>> |Though, of course, it's po...
>> |
>> |
>> |
>>
>> +-----------------+----------------+
>> |
>>
>> +-----------------+----------------+
>> | tolower 1
>> |
>> |though, of course, it's po...
>> |
>> |
>> |
>> |
>> |
>>
>> +-----------------+----------------+
>> |
>>
>> +-----------------+----------------+
>> | toupper 1
>> |
>> |THOUGH, OF COURSE, IT'S PO...
>> |
>> |
>> |
>> +----------+ |
>> |
>> | 1 (m"_) 1|
>> +-----------------+----------------+
>> | atom | |
>> | |
>> +-------------------+--------------+
>> +-----+----+ | 0=0
>> |
>> | | 66
>> |
>> +-------------+-----------------+ |0000001000...
>> |
>> | 0 m} 1 | |
>> |
>> | 66 |
>> +-----------------------------+----+
>> |though of course it s po... | +---------------+ |
>> +--------------+----------------+---------------+ |. 1 | |
>> | | 12 +-----+
>> +--------------+----------------+ |69161720223134 |
>> | ;: 11 | +---------------+
>> |though|of|course|it|s|po... |
>> | |
>> +-------------------------------+
>>
>>
>>
>>
>>
>
> --
(B=)
----------------------------------------------------------------------
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
More information about the Programming
mailing list