[Jprogramming] Tacit hook

[David Lambert]

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"<programming at jsoftware.com>
To: Programming Forum<programming at jsoftware.com>
Subject: [Jprogramming] Tacit hook
Message-ID:<1298132844.2251818.1627746723436 at mail.yahoo.com>
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