ChanServ changed the topic of #picolisp to: PicoLisp language | Channel Log: https://irclog.whitequark.org/picolisp/ | Check also http://www.picolisp.com for more information
alexshendi has joined #picolisp
xkapastel has quit [Quit: Connection closed for inactivity]
ubLIX has quit [Quit: ubLIX]
shpx has quit [Quit: My MacBook has gone to sleep. ZZZzzz…]
xkapastel has joined #picolisp
freemint has joined #picolisp
freemint2 has quit [Ping timeout: 268 seconds]
shpx has joined #picolisp
freemint2 has joined #picolisp
freemint has quit [Ping timeout: 268 seconds]
xkapastel has quit [Quit: Connection closed for inactivity]
_whitelogger has joined #picolisp
shpx has quit [Quit: My MacBook has gone to sleep. ZZZzzz…]
alexshendi has quit [Read error: Connection reset by peer]
rob_w has joined #picolisp
freemint2 has quit [Ping timeout: 268 seconds]
freemint has joined #picolisp
CORDIC has quit [Ping timeout: 272 seconds]
alexshendi has joined #picolisp
ubLIX has joined #picolisp
freemint has quit [Ping timeout: 240 seconds]
freemint has joined #picolisp
freemint2 has joined #picolisp
freemint has quit [Ping timeout: 250 seconds]
ubLIX has quit [Quit: ubLIX]
xkapastel has joined #picolisp
<tankf33der> i've solved part 1 of day 4
<tankf33der> cool!
<alexshendi> tankf33der: Congratulations!
<tankf33der> commited.
<tankf33der> part 2 is easy too after all.
<Regenaxer> Congrats tankf33der!
alexshendi has quit [Ping timeout: 252 seconds]
freemint2 has quit [Ping timeout: 250 seconds]
freemint has joined #picolisp
freemint has quit [Ping timeout: 250 seconds]
freemint has joined #picolisp
razzy` has quit [Remote host closed the connection]
razzy` has joined #picolisp
<beneroth> It's Looking Like The EXT4 Corruption Issue On Linux 4.19 Is Caused By BLK-MQ
<beneroth> is looking like it doesn't originate from within the EXT4 code at all.
alexshendi has joined #picolisp
alexshendi has quit [Ping timeout: 246 seconds]
alexshendi has joined #picolisp
alexshendi has quit [Ping timeout: 240 seconds]
<tankf33der> next
<tankf33der> Regenaxer:
<tankf33der> how to delete first cC from (chop "dabAcCaCBAcCcaDA") ?
<beneroth> interesting task
<tankf33der> input 50K string
<beneroth> I think I would approach it with (pop), keeping a reference to the previous element to check 2 elements...
<beneroth> or well, (echo "cC") until first cC is found, after that continuing with (echo) without arguments
<tankf33der> pop is ok
<tankf33der> no
<tankf33der> any lower or upper
<beneroth> (echo "cC" "Cc" "cc" "CC")
<tankf33der> i dont think so
<tankf33der> head of real input
<tankf33der> any chars
<beneroth> ah, in this input zZ should be filtered?
<beneroth> ah
<beneroth> ok
<tankf33der> yeap!
<tankf33der> problem how faster delete 4 and 5 from list (range 1 10)
<beneroth> yeah than pop
<tankf33der> pop cant delete
<beneroth> make
<beneroth> omit adding the 2 elements to your output
<beneroth> once you found them, you can stop iterating and add the rest with (chain)
<beneroth> (if you really only need to filter out the first instance of the pattern)
<tankf33der> or remove
<beneroth> for removal its probably about keeping the proper references (so two elements previous the current one, and one to the following element) and than use (conc) or so...
<beneroth> you're more experienced with that than me, I believe :)
<tankf33der> eh
<tankf33der> o
<tankf33der> it looks like sieve
<tankf33der> finding sieve in range 1-50k
<tankf33der> (set S) sets to NIL and skip it on next loop
<beneroth> ah the (filter bool)
<beneroth> nice
<beneroth> yeah I wondered about the set without an argument - elegant
<beneroth> though 2 iterations of the list. this could probably be optimized (with more complicated code)
<tankf33der> thats why 50k input.
<beneroth> but probably only worth for really long lists, else the more readable code is worth it.
<beneroth> great you found the Sieve :)
<beneroth> I didn't know it
shpx has joined #picolisp
rob_w has quit [Remote host closed the connection]
<Regenaxer> ret
<Regenaxer> Wouldn't 'seek' be the best?
<Regenaxer> Destructive would be easier probably
<tankf33der> sop
<tankf33der> so
<tankf33der> (setq Lst (seek bla-bla Lst))
<tankf33der> like this ?
<Regenaxer> yes
<Regenaxer> (let Lst (chop "dabAcCaCBAcCcaDA")
<Regenaxer> (and
<Regenaxer> (seek '((L) (match '(@ "c" "C" @) L)) Lst)
<Regenaxer> (con @ (cddr @))
<Regenaxer> Lst ) )
<Regenaxer> hmm
<Regenaxer> Then directly 'match is better ;)
<Regenaxer> even non-destructive
<Regenaxer> so simple :)
<tankf33der> any pairs
<tankf33der> any chars
<tankf33der> cC or Cc
<tankf33der> and so on
<tankf33der> from A to Z
<Regenaxer> (use (@A @Z) (and (match '(@A "c" "C" @Z) Lst) (append @A @Z]
<Regenaxer> (match (append '(@A) (myList) '(@Z)) ...
jibanes has quit [Ping timeout: 250 seconds]
jibanes has joined #picolisp
<tankf33der> failed, i will continue tomorrow
ubLIX has joined #picolisp
freemint2 has joined #picolisp
freemint has quit [Ping timeout: 268 seconds]
freemint2 has quit [Remote host closed the connection]
<Regenaxer> tankf33der, no worry
DKordic has joined #picolisp
shpx has quit [Ping timeout: 252 seconds]
<tankf33der> ive solved 5 day
<tankf33der> commited
<beneroth> gz
permagreen has joined #picolisp
aw- has quit [Quit: Leaving.]