` convo ??
(
 (
  ./CoSy/CoSy.f
 
: convof ( LA RA fn -- res ) | Applies RA fn across LA RA rho at a time | 20190912
|  for floats .
   >lpstk 2p R@ rho iota >a
   L@ i# R@ i# - L@ Type@ VecInit >lpstk> i# 0 ?do
    L@ i _i a@ +i at R@ lpstkx@ execute f_ lpstk@ i if! loop
   a- lpstk> lpstkdrop 2P>  ;
 
: convo ( LA RA fn -- res ) | Applies RA fn across LA RA rho at a time | 20200130
| must return naked value , eg: naked ints . Note that string search is a convolution .
   >lpstk 2p R@ rho iota >a
   L@ i# R@ i# - L@ Type@ VecInit >lpstk> i# 0 ?do
    L@ i _i a@ +i at R@ lpstkx@ execute lpstk@ i i! loop
   a- lpstk> lpstkdrop 2P>  ;
 ) (
  ./CoSy/Furniture.f
 
| Mask of ` quoted portions of strings . single symmetric delimiter | 20200202
| given bool of occurrences of delimiter , eg: | str ` " =c | returns bool covering quoted sections
: qmsk I>M ['] <> scanI 0<i >a> 1 1 2 s>iv { *i ['] maxi ./ >_ } convo a> dsc swap cL ;
: "msk ` " =c qmsk ;
 ) )

CoSy.com is evolved from APL via Arthur Whitney's K as an open vocabulary in Forth , It executes directly in the Forth interpreter .

All ` objects are allocated lists with a 3 cell header `( Type Count refCount )` where Type 0 = is list of lists and lists are freed when refCount which handles accounting referenced to to the list returns to 0 . Other types are generally raw lists , 1 for character " string " , 4 for integers , 10 floats .

It's useful to use the terminology Ken Iverson used in his later years and is used in the article Chochain linked . In terms of " stack comments " :

noun ( -- lst )

verb ( noun -- noun ) or ( noun noun -- noun )

In APL terminology this is monadic vs dyadic .

The vocabulary which puts it on the ` APL level is the simple ability using ' which returns the address of the next word whether noun or verb rather than executing it , so that it can be passed as an argument :

adverb ( noun noun ' verb -- noun )

This is FAR simpler than the mechanisms in traditional C based APLs .

These ` adverbs or ` operators turn various looping structures into simple words like

: 'm : eachMonadic ( noun verb -- noun ) | execute verb on each item of noun returning list of results

: 'd : eachDyadic ( noun noun verb -- noun ) | execute dyadic verb between each pair of corresponding items in the 2 nouns , ie: lists . Indexing is modulo so items of the shorter list are reused til the length of the longer .

: 'L : eachLeft ( noun noun verb -- noun ) | execute verb between each item in left list with whole of right list .

: 'R: eachRight ( noun noun verb -- noun ) | execute verb between each item in right list with whole of left list .

/\ these 2 words are , I believe , original w Arthur Whitney . The ways to accomplish the same effect in traditional APLs is far more complex .

: ./ : across ( noun verb -- noun ) | execute verb sequentially between each item in list and previous result . For example :

i( 6 3 43 5 )i ' +i ./ |>| 57

There are a few more including ' convo . But this should give the general idea and why one can do such human level useful tasks in just single lines

Don Golding : you already have this code, right? Care to share it?

Me : It IS and has been shared for years , all but the most recent , at https://cosy.com/4thCoSy/ . Note that the dates on those definitions go back to 2019 and are the dates on which I worked on them in my https://cosy.com/4thCoSy/Code/CoSy/WorkLog.csy .

I have commented multiple times that I found GitHub uselessly complex and CoSy far more powerful for any finding or editing operations on the ` library .

I have never found ` CREATE ` DOES very useful , but that may be partly a matter of my path .

However it is ESSENTIAL that all objects ( lists ) be DYNAMICALLY allocated and freed . And that requires not mixing them with the dictionary . ' VecInit ( n type -- vec ) creates the address space for the result . Note use of a separate ` Loop stack which I've found necessary to enable recursive nesting of loops . ` 2p is also notable because it creates a " stack-frame " , dropped by ' 2P> .

If sufficient people want , I could hold a Zoom going thru those definitions .

I mentioned in discussion w the British APL Association , Thursday , that CoSy is like an " APL construction kit " . These are some of the pieces and why CoSy is language nonpareil .

Do you plan to present at the February meeting?  It'll be here before you know it!!
_______________________________________________
http://zork.net/mailman/listinfo/svfig
neither public nor private,
this membership of correspondence

--

Bob A

Peace thru Freedom
Honesty enforced thru Transparency ,

-- Bob@CoSy.com -- Bob Armstrong Vita -- 719.337.2733 CoSy   The Simplest Deepest Personal Computing Environment I reserve the right to post all communications I receive or generate to CoSy website for further reflection

-- 28124 State Highway 67 Woodland Park CO 80863-9711