Hi.
'key val'=: <"1 |: >({. , ([,' ',])&.>/@:}.)@:(' '&cut) each LF cut
1!:1<jpath'~user/temp/CREDO'
In order for the line above work as expected, at least the following
conditions should be met:
- ~user/temp/CREDO file(without extension name) should exist
- it should include the DB texts
- AMEN should start with 0 and a blank (I thought it was a mistake that
there was no number before AMEN)
- there should be no blank lines in the DB
I mentioned all of these in my previous posts.
However, as Aai suggested, you can replace the first condition with the
input from ijx as with DB=: 0 : 0
On Sat, Dec 1, 2012 at 1:32 AM, Bo Jacoby <[email protected]> wrote:
> Hi Aai. Thanks. I did, but still:
>
> 22{. DB
> 1 CREDO
> 11 IN
> 111 UNUM
> _18{.DB NB. it is necessary to put a blank character before AMEN.
> 321 SÆCULI
> AMEN
>
> $ DB
> 1926
>
>
> 'key val'=: <"1 |: >({. , ([,' ',])&.>/@:}.)@:(' '&cut) each LF cut DB
> |domain error
> | 'key val'=:<"1|:> ({.,([,' ',])&.>/@:}.)@:(' '&cut)each LF cut DB
>
>
> 3 {. cut DB
> ┌─┬────────┬──────┐
> │1│CREDO 11│IN 111│
> └─┴────────┴──────┘
>
>
> The line number should be before the word.
>
>
> - Bo
>
>
> >________________________________
> > Fra: Aai <[email protected]>
> >Til: [email protected]
> >Sendt: 15:21 fredag den 30. november 2012
> >Emne: Re: [Jprogramming] Translating BASIC into J
> >
> >Hi Bo, you need to feed the animal, e.g.
> >
> >DB=: 0 :0
> >1 CREDO
> >11 IN
> >111 UNUM
> >...
> >)
> >
> >and then:
> >
> >'key val'=: <"1 |: >({. , ([,' ',])&.>/@:}.)@:(' '&cut) each LF cut DB
> >
> >
> >
> >On 30-11-12 15:03, Bo Jacoby wrote:
> >> Hi June. I can't make it work.
> >> require 'strings'
> >> cut
> >> ' '&$: :([: -.&a: <;._2@,~)
> >> 'key val'=: <"1 |: >({. , ([,' ',])&.>/@:}.)@:(' '&cut) each LF cut
> >> |domain error
> >> | 'key val'=:<"1|:> ({.,([,' ',])&.>/@:}.)@:(' '&cut)each LF cut
> >> - Bo
> >>
> >>
> >>
> >>
> >>> ________________________________
> >>> Fra: June Kim (김창준) <[email protected]>
> >>> Til: [email protected]
> >>> Sendt: 9:30 fredag den 30. november 2012
> >>> Emne: Re: [Jprogramming] Translating BASIC into J
> >>>
> >>> I forgot to mention that cut is from strings.
> >>>
> >>> Hence, you should
> >>>
> >>> require 'strings'
> >>>
> >>> first, before running my other lines.
> >>>
> >>> On Wed, Nov 28, 2012 at 2:43 PM, June Kim (김창준) <[email protected]>
> wrote:
> >>>
> >>>> Hi Bo,
> >>>>
> >>>> Firstly on the database file:
> >>>>
> >>>> I suppose there is no blank line in between the lines of the file.
> >>>> I suppose AMEN at the end was actually, 0 AMEN, instead.
> >>>>
> >>>> Now a quick and dirty version -- notice that this doesn't fully
> implement
> >>>> the basic code exactly, but you'll get the key idea.
> >>>>
> >>>> 'key val'=: <"1 |: >({. , ([,' ',])&.>/@:}.)@:(' '&cut) each LF
> cut
> >>>> 1!:1<jpath'~user/temp/CREDO' NB. I put the CREDO file here
> >>>> search=:*./@(+./)@( [ (= , '0'&=@,: ) ({.~ #)~ )
> >>>> val#~key search every < '13522' NB. query for 13522
> >>>>
> >>>>
> >>>> June
> >>>>
> >>>>
> >>>> On Tue, Nov 27, 2012 at 3:31 PM, Bo Jacoby <[email protected]> wrote:
> >>>>
> >>>>> Dear J'ers.
> >>>>>
> >>>>> At the Norddata conference in Göteborg in the summer 1989 I gave a
> >>>>> lecture (in Danish) on Ultraflexible Database Structure and
> Artificial
> >>>>> Catholicism.
> >>>>>
> >>>>>
> >>>>> It contained this 8-liner in BASIC.
> >>>>>
> >>>>> 1 INPUT;C$: IF C$="" THEN END
> >>>>> 2 OPEN "CREDO" FOR INPUT AS 1: PRINT":";
> >>>>> 3 IF EOF(1) THEN CLOSE: PRINT: GOTO 1
> >>>>> 4 LINE INPUT#1,A$: B$=C$
> >>>>> 5 IF A$=""THEN A%=-1 ELSE A%=ASC(A$)-48: A$=MID$(A$,2)
> >>>>> 6 IF B$=""THEN B%=-1 ELSE B%=ASC(B$)-48: B$=MID$(B$,2)
> >>>>> 7 IF A%<0 THEN PRINT" ";A$;: GOTO 3
> >>>>> 8 IF A%=0 OR B%=0 OR A%=B% THEN 5 ELSE 3
> >>>>>
> >>>>> I have not yet been able to translate this program into J, mainly (I
> >>>>> think) because I have no experience in reading textfiles from J. I
> request
> >>>>> your assistance! The line numbers in the file must be separated from
> the
> >>>>> rest of the lines. The line numbers may be padded to the right with
> zeroes.
> >>>>>
> >>>>>
> >>>>> The program is a database browser. The question put to the program
> is a
> >>>>> number, and the answer from the program consists of the lines in the
> >>>>> database having numbers compatible to that of the question. Like
> this:
> >>>>>
> >>>>> 1: CREDO AMEN
> >>>>> 2: CONFITEOR AMEN
> >>>>> 3: EXPECTO AMEN
> >>>>> 0: CREDO CONFITEOR ET EXPECTO AMEN
> >>>>>
> >>>>> The digit zero is wild card character. A zero in the question
> indicate
> >>>>> that the answer has many words, and zero in a word in the database
> indicate
> >>>>> that this word answers many questions. So "AMEN" is included in all
> >>>>> answers. Like this:
> >>>>>
> >>>>> 11: CREDO IN DEUM AMEN
> >>>>> 12: CREDO IN JESUM AMEN
> >>>>> 13: CREDO IN SPIRITUM AMEN
> >>>>> 14: CREDO ECCLESIAM AMEN
> >>>>> 15: CREDO AMEN
> >>>>> 10: CREDO IN DEUM ET IN JESUM ET IN SPIRITUM ET ECCLESIAM AMEN
> >>>>> 21: CONFITEOR BAPTISMA AMEN
> >>>>> 22: CONFITEOR AMEN
> >>>>> 31: EXPECTO RESURRECTIONEM AMEN
> >>>>> 32: EXPECTO VITAM AMEN
> >>>>> 33: EXPECTO AMEN
> >>>>> 30: EXPECTO RESURRECTIONEM ET VITAM AMEN
> >>>>> 01: CREDO IN DEUM CONFITEOR BAPTISMA ET EXPECTO RESURRECTIONEM AMEN
> >>>>> 13500: CREDO IN SPIRITUM QUI CUM PATRE ET FILIO SIMUL ADORATUR ET
> >>>>> GLORIFICATUR AMEN
> >>>>>
> >>>>> 13510: CREDO IN SPIRITUM QUI CUM PATRE ET FILIO SIMUL ADORATUR AMEN
> >>>>> 13520: CREDO IN SPIRITUM QUI CUM PATRE ET FILIO SIMUL GLORIFICATUR
> AMEN
> >>>>> 13501: CREDO IN SPIRITUM QUI CUM PATRE ADORATUR ET GLORIFICATUR AMEN
> >>>>> 13502: CREDO IN SPIRITUM QUI CUM FILIO ADORATUR ET GLORIFICATUR AMEN
> >>>>> 13511: CREDO IN SPIRITUM QUI CUM PATRE ADORATUR AMEN
> >>>>> 13512: CREDO IN SPIRITUM QUI CUM FILIO ADORATUR AMEN
> >>>>> 13521: CREDO IN SPIRITUM QUI CUM PATRE GLORIFICATUR AMEN
> >>>>> 13522: CREDO IN SPIRITUM QUI CUM FILIO GLORIFICATUR AMEN
> >>>>>
> >>>>> The database is this.
> >>>>> 1 CREDO
> >>>>> 11 IN
> >>>>> 111 UNUM
> >>>>> 11 DEUM
> >>>>> 112 PATREM
> >>>>> 1121 OMNIPOTENTEM
> >>>>> 113 FACTOREM
> >>>>> 1131 CÆLI
> >>>>> 1139 ET
> >>>>> 1132 TERRÆ
> >>>>> 11331 VISIBILIUM
> >>>>> 1133 OMNIUM
> >>>>> 11339 ET
> >>>>> 11332 INVISIBILIUM
> >>>>> 19 ET
> >>>>> 12 IN
> >>>>> 1211 UNUM
> >>>>> 1211 DOMINUM
> >>>>> 12 JESUM
> >>>>> 1211 CHRISTUM
> >>>>> 1212 FILIUM
> >>>>> 1212 DEI
> >>>>> 12121 UNIGENITUM
> >>>>> 1219 ET
> >>>>> 1213 EX
> >>>>> 1213 PATRE
> >>>>> 1213 NATUM
> >>>>> 12131 ANTE
> >>>>> 121311 OMNIA
> >>>>> 12131 SÆCULA
> >>>>> 1221 DEUM
> >>>>> 12211 DE
> >>>>> 12211 DEO
> >>>>> 1222 LUMEN
> >>>>> 12221 DE
> >>>>> 12221 LUMINE
> >>>>> 1223 DEUM
> >>>>> 12231 VERUM
> >>>>> 12232 DE
> >>>>> 12232 DEO
> >>>>> 122321 VERO
> >>>>> 1231 GENITUM
> >>>>> 12311 NON
> >>>>> 12311 FACTUM
> >>>>> 1232 CONSUBSTANTIALEM
> >>>>> 1232 PATRI
> >>>>> 12321 PER
> >>>>> 12321 QUEM
> >>>>> 12321 OMNIA
> >>>>> 12321 FACTA
> >>>>> 12321 SUNT
> >>>>> 124 QUI
> >>>>> 124101 PROPTER
> >>>>> 124101 NOS
> >>>>> 12410101 HOMINES
> >>>>> 124109 ET
> >>>>> 124102 PROPTER
> >>>>> 12410201 NOSTRAM
> >>>>> 124102 SALUTEM
> >>>>> 12411 DESCENDIT
> >>>>> 1241101 DE
> >>>>> 1241101 CÆLIS
> >>>>> 12419 ET
> >>>>> 12412 INCARNATUS
> >>>>> 12412 EST
> >>>>> 1241201 DE
> >>>>> 1241201 SPIRITU
> >>>>> 124120101 SANCTO
> >>>>> 1241202 EX
> >>>>> 1241202 MARIA
> >>>>> 124120201 VIRGINE
> >>>>> 12419 ET
> >>>>> 1241301 HOMO
> >>>>> 12413 FACTUS
> >>>>>
> >>>>> 12413 EST
> >>>>> 124211 CRUCIFIXUS
> >>>>> 1242101 ETIAM
> >>>>> 1242101 PRO
> >>>>> 1242101 NOBIS
> >>>>> 1242102 SUB
> >>>>> 1242102 PONTIO
> >>>>> 1242102 PILATO
> >>>>> 124212 PASSUS
> >>>>> 124219 ET
> >>>>> 124213 SEPULTUS
> >>>>> 12421 EST
> >>>>> 12429 ET
> >>>>> 12422 RESURREXIT
> >>>>> 124221 TERTIA
> >>>>> 124221 DIE
> >>>>> 124222 SECUMDUM
> >>>>> 124222 SCRIPTURAS
> >>>>> 12429 ET
> >>>>> 12423 ASCENDIT
> >>>>> 124231 IN
> >>>>> 124231 CÆLUM
> >>>>> 12424 SEDET
> >>>>> 124241 AD
> >>>>> 124241 DEXTERAM
> >>>>> 124241 PATRIS
> >>>>> 12429 ET
> >>>>> 124251 ITERUM
> >>>>> 12425 VENTURUS
> >>>>>
> >>>>> 12425 EST
> >>>>> 124252 CUM
> >>>>> 124252 GLORIA
> >>>>> 124253 JUDICARE
> >>>>> 1242531 VIVOS
> >>>>> 1242539 ET
> >>>>> 1242532 MORTUOS
> >>>>> 125 CUJUS
> >>>>> 125 REGNI
> >>>>> 125 NON
> >>>>> 125 ERIT
> >>>>> 125 FINIS
> >>>>> 19 ET
> >>>>> 13 IN
> >>>>> 13 SPIRITUM
> >>>>> 131 SANCTUM
> >>>>> 132 DOMINUM
> >>>>> 139 ET
> >>>>> 133 VIVIFICANTEM
> >>>>> 134 QUI
> >>>>> 134 EX
> >>>>> 1341 PATRE
> >>>>> 1342 FILIO
> >>>>> 1349 QUE
> >>>>> 134 PROCEDIT
> >>>>> 135 QUI
> >>>>> 135 CUM
> >>>>> 13501 PATRE
> >>>>> 13509 ET
> >>>>> 13502 FILIO
> >>>>> 13509 SIMUL
> >>>>> 1351 ADORATUR
> >>>>> 1359 ET
> >>>>> 1352 GLORIFICATUR
> >>>>> 136 QUI
> >>>>> 136 LOCUTUS EST
> >>>>> 1361 PER
> >>>>> 1361 PROPHETAS
> >>>>> 19 ET
> >>>>> 141 UNAM
> >>>>> 142 SANCTAM
> >>>>> 143 CATHOLICAM
> >>>>> 149 ET
> >>>>> 144 APOSTOLICAM
> >>>>> 14 ECCLESIAM
> >>>>> 2 CONFITEOR
> >>>>> 211 UNUM
> >>>>> 21 BAPTISMA
> >>>>> 212 IN
> >>>>> 212 REMISSIONEM
> >>>>> 2121 PECCATORUM
> >>>>> 9 ET
> >>>>> 3 EXPECTO
> >>>>> 31 RESURRECTIONEM
> >>>>> 311 MORTUORUM
> >>>>> 39 ET
> >>>>> 32 VITAM
> >>>>> 3211 VENTURI
> >>>>> 321 SÆCULI
> >>>>> AMEN
> >>>>>
> ----------------------------------------------------------------------
> >>>>> For information about J forums see
> http://www.jsoftware.com/forums.htm
> >>>>>
> >>>>
> >>> ----------------------------------------------------------------------
> >>> For information about J forums see http://www.jsoftware.com/forums.htm
> >>>
> >>>
> >> ----------------------------------------------------------------------
> >> For information about J forums see http://www.jsoftware.com/forums.htm
> >
> >--
> >Met vriendelijke groet,
> >@@i = Arie Groeneveld
> >
> >----------------------------------------------------------------------
> >For information about J forums see http://www.jsoftware.com/forums.htm
> >
> >
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
>
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
