Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Active-object/J/active-object-1.j
+++ b/Task/Active-object/J/active-object-1.j
@ -0,0 +1,24 @@
+coclass 'activeobject'
+require'dates'
+
+create=:setinput NB. constructor
+
+T=:3 :0
+  if. nc<'T0' do. T0=:tsrep 6!:0'' end.
+  0.001*(tsrep 6!:0'')-T0
+)
+
+F=:G=:0:
+Zero=:0
+
+setinput=:3 :0
+  zero=. getoutput''
+  '`F ignore'=: y,_:`''
+  G=: F f.d._1
+  Zero=: zero-G T ''
+  getoutput''
+)
+
+getoutput=:3 :0
+  Zero+G T''
+)