inst/examples/ex1.R

In wwbrannon/schemeR: Ports of Lisp/Scheme Features to R

# In the usual infix R syntax:
x <- sort(sample(1:10, 5, replace=TRUE))
for(i in x)
{
    print(1:i)
}

#Equivalent:
schemeR::schemeR({
.(`<-`, x,
  .(sort,
    .(sample,
      .(`:`, 1, 10),
      5, replace=TRUE)))

.(`for`, i, x,
  .(`{`,
    .(print,
      .(`:`, 1, i))))
})