https://github.com/jrincayc/ucblogo-code
Tip revision: 07e7e89a4cfcdb7d1e78df005dd8069ab9133ace authored by Joshua Cogliati on 08 January 2023, 16:24:02 UTC
Merge pull request #144 from dmalec/ISSUE-143-CICD-ACTION-VERSION
Merge pull request #144 from dmalec/ISSUE-143-CICD-ACTION-VERSION
Tip revision: 07e7e89
iseq
;;; -*- logo -*-
to iseq :a :b
if not (:a > :b) [output iseq1 :a :b]
output map [[x] -1 * :x] iseq1 (-1 * :a) (-1 * :b)
end
to iseq1 :a :b
if :a > :b [output []]
output fput :a iseq1 :a + 1 :b
end
bury [iseq iseq1]
