Reuh/anselme
1
0
Fork 0
mirror of https://github.com/Reuh/anselme.git synced 2025-10-28 00:59:31 +00:00
Code Releases Activity

Add while loop line and operator

Browse source
This commit is contained in:
Étienne Fildadut 2021-12-12 17:07:50 +01:00
parent f5382d2912
commit 48cabbf4c0
14 changed files with 500 additions and 61 deletions
Download patch file Download diff file Expand all files Collapse all files

20
stdlib/functions.lua
View file

@ -308,24 +308,14 @@ $ random(l...)
~ l(rand(1, l!len))!
$ next(l...)
:f = l(len(l))
$ find first not seen(j)
~ l(j).👁️ == 0
~ f := l(j)
~~ j < len(l)
~ find first not seen(j+1)
~ find first not seen(1)
~ f!
:j = 0
~? j += 1; j < len(l) & l(j).👁️ != 0
~ l(j)!
$ cycle(l...)
:f = l(1)
$ find first smaller(j)
~ l(j).👁️ < f.👁️
~ f := l(j)
~~ j < len(l)
~ find first smaller(j+1)
~ len(l) > 1
~ find first smaller(2)
:j = 1
~? j += 1; j <= len(l) & !((f := l(j); 1) ~ l(j).👁️ < f.👁️)
~ f!
]]