converted to 1.6 markup
|Deletions are marked like this.||Additions are marked like this.|
|Line 1:||Line 1:|
Create Atomic Representations
NB. Atomic-representation utilities
NB. y. is string name of verb, result is AR of verb
arverb =: <@,
NB. y. is noun, result is AR of noun
arnoun =: <@((,'0')&(,&<))
NB. (adverb) m. is conjunction (in string form), x. is AR, y. is AR
NB. Result is AR of x. m. y.
arconj =: 1 : '<@((,&<~ ,)&m.)@,"0'
NB. y. is a list of 3 ARs, result is AR of their fork
arfork =: <@((,'3')&(,&:<))
NB. x. is AR, y. is AR, result is AR for (x. y.)
arhook =: <@((,'2')&(,&:<))@,"0