Noting that binary is the base for monadic antibase,

   h=: ((= +/"1) # ]) ([: #: [: i. 2&^)

   3 (0 -.@:e. (Smps -: h)&>) #\i.9  NB. a test
1

And Raul already arrived here.  Can we further eliminate ]same?

Date: Sat, 31 Jul 2021 15:52:03 +0000 (UTC)
From: "'Bo Jacoby' via Programming"<[email protected]>
To: Programming Forum<[email protected]>
Subject: [Jprogramming] Tacit hook
Message-ID:<[email protected]>
Content-Type: text/plain; charset=UTF-8

Consider this code

   f=.#&2#:[:i.2&^ NB. 0-1 rows
   Smps=. 4 : '(#~x=+/"1)f y' NB. select rows

----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to