beneroth changed the topic of #picolisp to: PicoLisp language | The scalpel of software development | Channel Log: https://libera.irclog.whitequark.org/picolisp | Check www.picolisp.com for more information
alexshendi has quit [Read error: Connection reset by peer]
alexshendi has joined #picolisp
alexshendi has quit [Ping timeout: 245 seconds]
alexshendi has joined #picolisp
<abu[m]> Hi @lagash , you can use "termux-share a.zip" and then select PilBox
<abu[m]> The normal way - entering "hello" into the Downloads field in the PilBox settings - works, right?
<abu[m]> @tankf33der , can you tell me what 'longRand' should do? Return an odd number with exactly N bits?
<abu[m]> If so, I would do this: http://ix.io/46jd
<tankf33der> i already have two versions
<tankf33der> one for longrand odd numbers - works
<abu[m]> ok
<tankf33der> second is longrand in rage 2:N-1
<abu[m]> So you do need two different versions?
<tankf33der> yes
<tankf33der> this one is second
<abu[m]> Too complicated
<tankf33der> cannt write better now
<abu[m]> What does it need to do?
<tankf33der> return random longRand number in range 2:N-1
<abu[m]> How about my proposal above? Doesn't it do all?
<tankf33der> testing then
<abu[m]> My solution is wrong then. It assumes N to be the number of bits
<abu[m]> Btw, (for (M N (n0 (setq M (>> 8 M)))) (inc 'B)) may be obsolete
<abu[m]> (size N) almost gives the number of bytes
<abu[m]> in fact it gives a little more (it is plio size)
<abu[m]> but you just do '%' then to get a number less than N
<tankf33der> http://ix.io/46jB
<tankf33der> this is generator for N bits
<tankf33der> now playing with longRand
<tankf33der> problem how to handle beginning of the range
<tankf33der> because (longRand 2) loops forever..
<abu[m]> Is the loop needed? Why not (max 2 (in "/dev/urandom" ...)) ?
<tankf33der> http://ix.io/46jG
<tankf33der> what you think about this one ?
<abu[m]> Looks good I think
<tankf33der> issue closed then.
<abu[m]> ok
<abu[m]> Now very big tests?
<tankf33der> yeap
<tankf33der> small passed.
<abu[m]> 👍
alexshendi has quit [Ping timeout: 245 seconds]
lagash has quit [Quit: ZNC - https://znc.in]
lagash has joined #picolisp
alexshendi has joined #picolisp
<abu[m]> I could use my bitwise longRand version above for a tweet in #PicoLispREPL
<tankf33der> Good
<tankf33der> i did not know i could use '(((X . L)) in mapcon from latest tweet
<tankf33der> and never met before
<abu[m]> This is in all functions
<abu[m]> New in Pil21
<tankf33der> this explain
<tankf33der> http://ix.io/46k3
<tankf33der> ok
<abu[m]> yeah
<abu[m]> There is also a note in @doc/diff: Lists of symbols as function parameters (destructuring, one-dimensional)
<abu[m]> So it is (as opposed to 'let') one-dimensional, i.e. only on top-level) for performance reasons
<abu[m]> Uh, seems it is not mentioned yet in @doc/ref.html
<abu[m]> I add a note
<tankf33der> Tell me where and when
<abu[m]> I released already. It is in @doc/ref.html under "When the CAR is a list of symbols".
alexshe72 has joined #picolisp
alexshendi has quit [Ping timeout: 268 seconds]
alexshe72 has quit [Quit: -a- Connection Timed Out]
alexshendi has joined #picolisp
alexshendi has quit [Quit: -a- Connection Timed Out]
alexshendi has joined #picolisp
alexshendi has quit [Quit: -a- Connection Timed Out]
alexshendi has joined #picolisp
alexshendi has quit [Ping timeout: 240 seconds]
alexshendi has joined #picolisp
alexshendi has quit [Read error: Connection reset by peer]
alexshe7 has joined #picolisp
alexshe7 has quit [Read error: Connection reset by peer]
alexshendi has joined #picolisp
lagash has quit [Ping timeout: 255 seconds]
lagash has joined #picolisp
lagash has quit [Ping timeout: 240 seconds]
lagash has joined #picolisp
alexshendi has quit [Quit: -a- Connection Timed Out]
alexshendi has joined #picolisp
alexshendi has quit [Ping timeout: 240 seconds]
calle has joined #picolisp
calle has quit [Ping timeout: 268 seconds]
theruran_ has joined #picolisp
inara` has joined #picolisp
inara has quit [*.net *.split]
theruran has quit [*.net *.split]
theruran_ is now known as theruran