# all lifted from <https://beyondloom.com/decker/lil.html>
on mode a do
r:()
each x in a
r[x]:1+r[x]
end
extract first key orderby value desc from r
end
m:mode[1,2,2,3,4,2,1]
print[m]
show[
-(100,200)+(10,-20)/(3,3)
]
show[
each x in 2 cross 3 (27,19)+x end
]
people.name:"Alice","Sam","Thomas","Sara","Walter"
people.age:25,28,40,34,43
people.job:"Developer","Sales","Developer","Developer","Accounting"
people:table people
t:select from people
show[t]
s:select where ("S%m" parse name) from people
show[s]
d:select where ("Developer" = job) from people
show[d]
a:select name where ("Alice" = name) from people
show[a]
needle: "apple"
haystack: ("frog","apple","chicken","toadstool","apple","rice","fish")
c:0 each x in haystack if x~needle c:c+1 end end c # imperative
show[c]
g:0 each x in haystack g:g+x~needle end g # imperative, without a conditional
show[g]
show[extract count value where value=needle from haystack] # query
show[count needle take haystack] # functional (filter)
show[sum needle=haystack] # vector-oriented (spread-conforming =)