<clacke[m]>
I consider both an escape from the other
<clacke[m]>
like when I was alternating studies and work. I enjoyed both because I had always been doing months of the other.
_whitelogger has joined #picolisp
karswell_ has quit [Remote host closed the connection]
karswell_ has joined #picolisp
karswell_ has quit [Read error: Connection reset by peer]
<m_mans>
Hi all!
abel-norm has joined #picolisp
<cess11>
morning
Regenaxer has joined #picolisp
<m_mans>
Regenaxer: good morning!
<Regenaxer>
Good morning m_mans!
<m_mans>
I think there is a little bag in xhtml.l: <select> doesn't insert 'disabled' attribute for '<select>' itself, only for '<option>'
<Regenaxer>
Hmm, I think this was for some reason
<Regenaxer>
Perhaps to be able to *see* all, without being able to change it?
<Regenaxer>
You could try to see what happens
<m_mans>
e.g. form.js does that when change something
<m_mans>
when I change something
<m_mans>
I mean javascript part locks that anyway, but only by some user actions
<Regenaxer>
I don't remember the details at all at the moment ;)
<m_mans>
ok, np
<m_mans>
just to inform you
<Regenaxer>
Can you try?
<Regenaxer>
What happens if you insert 'disabled' attribute for '<select>'?
<Regenaxer>
The JS part only runs when something *is* changed
<m_mans>
I can live with both ways. When <select> itself is disabled, it looks grayed and fully disabled, so I can't open the list
<Regenaxer>
exactly, that's what I mean
<Regenaxer>
The list should still be visible
<m_mans>
Ok, so np in general
<Regenaxer>
yeah, think so
<m_mans>
how are you?
<Regenaxer>
Fine, thanks!
<beneroth>
Good morning Regenaxer and m_mans :)
<Regenaxer>
Good morning beneroth
<m_mans>
Good morning beneroth
<m_mans>
:)
rgrau has quit [Ping timeout: 255 seconds]
orivej has joined #picolisp
<m_mans>
they say that 64bit emu even works on Elbrus
cess11 has quit [Ping timeout: 240 seconds]
<Regenaxer>
Cool
anjaa has quit [Ping timeout: 248 seconds]
<m_mans>
but it shows error on login:
<m_mans>
: : !? (get *DB (cdr Tree) (car Tree))
<m_mans>
Bad DB file
<m_mans>
I can't provide more details so far :)
<m_mans>
hey, everything works
<beneroth>
you forgot to open the DB with (pool) maybe? :)
<m_mans>
they did something wrong with command line params
<beneroth>
even when (pool) was never called, when you try to execute DB functions access to external symbols will be tried, resulting in this error if the external symbol could not be fetched
<m_mans>
I think "-main" was missing
<beneroth>
I suspect that is the function which calls (pool) :)
<beneroth>
happened to me before
<m_mans>
does 'native work in 'emu'?
<beneroth>
afaik yes, but with some limitations (e.g. not more than 7? arguments)
rgrau has quit [Read error: Connection reset by peer]
alexshendi has quit [Read error: Connection reset by peer]
alexshendi has joined #picolisp
rgrau has joined #picolisp
alexshendi has quit [Quit: Yaaic - Yet another Android IRC client - http://www.yaaic.org]
alexshendi has joined #picolisp
<tankfeeder>
damn, solved.
<beneroth>
why 'damn' ? :)
<beneroth>
was it hard, or too simple?
<tankfeeder>
second part too.
<tankfeeder>
simple for me.
<beneroth>
you had a lot of training with all your algorithm implementations.
<tankfeeder>
:)
<beneroth>
:)
abel-norm has joined #picolisp
<beneroth>
(pick 'func 'list) is equivalent to (for 'sym 'list (T 'func)) right?
<beneroth>
(I mean both stop iterating over the list as soon as 'func returns Non-NIL)
<tankfeeder>
yeap
<tankfeeder>
reference says:
<tankfeeder>
(pick 'fun 'lst) is equivalent to (fun (find 'fun 'lst)).
<tankfeeder>
T inside for is expensive
<tankfeeder>
every T-NIL in car in any loop-do-for is expensive
<beneroth>
so (pick) would be the better choice?
<tankfeeder>
of course.
<tankfeeder>
try.
<beneroth>
makes sense. thanks!
alexshendi has quit [Ping timeout: 240 seconds]
<cess11>
beneroth: when in doubt, 'bench
<beneroth>
T
<joebo>
tankfeeder: really neat to see you doing adventofcode in pil
<joebo>
I've been away from the chan for a few days/weeks and had been doing it in J
<tankfeeder>
uh
<tankfeeder>
insane :)
<cess11>
I have a crude word counting routine I'm looking to improve. Is the '+IdxFold an index that allows both Word and word to get hold of an object with either in that field, or have I forgotten entirely how that index is supposed to be used?
<joebo>
I am going to review your solutions to compare :)
<joebo>
I'm only on day 7... got tied up the past few days
<joebo>
thanks for sharing
<tankfeeder>
joebo: comments and patches are welcome
<joebo>
tankfeeder: looks good to me
<joebo>
I played around with day 1 using a similar approach to how I did it in J
<joebo>
this is part1 day 1
<joebo>
(let (Input '(1 1 2 2) N (length Input)) (sum '((X Y) (if (= X Y) X 0)) Input (head N (nth (apply circ Input) 2))))
<joebo>
this is part 2 day 1
<joebo>
(let (Input '(1 2 1 2) N (length Input) Skip (/ N 2)) (sum '((X Y) (if (= X Y) X 0)) Input (head N (nth (apply circ Input) (+ 1 Skip)))))
<joebo>
probably could use a pp but I prefer the one liners for playing in the repl
<joebo>
I do like your use of mapcon though too
<joebo>
anyhow back to work :)
<joebo>
for comparison... this was my J for pat 1 and part 2