b=:%: i.14
   f=: 13 :'(=<.)y'
   g=: 13 :'y=<.y'
   f
= <.
   g
] = <.
 
  (f b)-:g b
1

Maybe J could simplify the display of function g.

Linda

-----Original Message-----
From: Programming <programming-boun...@forums.jsoftware.com> On Behalf Of 'Bo 
Jacoby' via Programming
Sent: Tuesday, June 12, 2018 6:13 PM
To: programm...@jsoftware.com
Subject: Re: [Jprogramming] Finding integers:

   (=<.) %: i.26
1 1 0 0 1 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1
 

    Den 22:42 tirsdag den 12. juni 2018 skrev Henry Rich <henryhr...@gmail.com>:
 

 fi =: (= <.)

Consider whether you want intolerant comparison.

Henry Rich

On 6/12/2018 4:40 PM, Skip Cave wrote:
> I want to find the integers in a vector of floating point numbers, by 
> generating a boolean marking vector indicating the locations of the 
> integers in the floating-point vector:
>
> Generate a vector of integers & store in a, and generate a second 
> vector of floating and integer numbers by taking the square root of a:
>
> b =. %: a=. 1+i.20
>
>
> Create an integer-finding/marking verb:
>
>
> fi =. 3 :'(<.y)=y'
>
>
> Use 'fi' to find the integers in b:
>
> fi b
>
> 1 0 0 1 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0
>
>
> Use the mark vector to find the perfect squares in a, by finding the 
> integers in b:
>
>
> a#~ fi b
>
> 1 4 9 16
>
> My question is:  What are some tacit ways to implement the fi verb?
>
> Skip
> ----------------------------------------------------------------------
> For information about J forums see 
> https://nam05.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.j
> software.com%2Fforums.htm&data=02%7C01%7C%7C88acfb56840f4d94844808d5d0
> b1ba5a%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C636644384111070286
> &sdata=EiynACNrQDActLmjRO%2FfG3wHSDXMMu8mw3I8cOsHiQg%3D&reserved=0


---
This email has been checked for viruses by AVG.
https://nam05.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.avg.com&data=02%7C01%7C%7C88acfb56840f4d94844808d5d0b1ba5a%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C636644384111070286&sdata=DQMJpb7Vv%2BHD1AY7dbmi1BmbkplFOiO%2BFPiEGfzIFU8%3D&reserved=0

----------------------------------------------------------------------
For information about J forums see 
https://nam05.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.jsoftware.com%2Fforums.htm&data=02%7C01%7C%7C88acfb56840f4d94844808d5d0b1ba5a%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C636644384111070286&sdata=EiynACNrQDActLmjRO%2FfG3wHSDXMMu8mw3I8cOsHiQg%3D&reserved=0

   
----------------------------------------------------------------------
For information about J forums see 
https://nam05.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.jsoftware.com%2Fforums.htm&data=02%7C01%7C%7C88acfb56840f4d94844808d5d0b1ba5a%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C636644384111070286&sdata=EiynACNrQDActLmjRO%2FfG3wHSDXMMu8mw3I8cOsHiQg%3D&reserved=0
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to