Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
citizen-science
symbai
Commits
97a3674c
Commit
97a3674c
authored
May 02, 2014
by
dave griffiths
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
merge fixes
parent
494cb5e3
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
4 additions
and
3 deletions
+4
-3
web/scripts/list.ss
web/scripts/list.ss
+0
-2
web/scripts/server-sync.ss
web/scripts/server-sync.ss
+0
-1
web/scripts/utils.ss
web/scripts/utils.ss
+4
-0
No files found.
web/scripts/list.ss
View file @
97a3674c
...
...
@@ -67,8 +67,6 @@
((
zero?
i
)
(
cons
v
(
list-replace
(
cdr
l
)
(
-
i
1
)
v
)))
(
else
(
cons
(
car
l
)
(
list-replace
(
cdr
l
)
(
-
i
1
)
v
)))))
(
define
(
choose
l
)
(
list-ref
l
(
random
(
length
l
))))
(
define
(
set-cons
v
l
)
(
if
(
list-contains?
l
v
)
l
...
...
web/scripts/server-sync.ss
View file @
97a3674c
...
...
@@ -159,7 +159,6 @@
;; (ktv "pack-id" "int" 1)
;; (ktv "weight" "real" 10.4)))
(
define
(
choose
l
)
(
list-ref
l
(
random
(
length
l
))))
(
define
(
random-string
len
)
(
if
(
zero?
len
)
...
...
web/scripts/utils.ss
View file @
97a3674c
...
...
@@ -35,6 +35,10 @@
(
when
(
not
(
equal?
a
b
))
(
error
"unit "
msg
a
b
)))
(
define
(
rndf
)
(
random
))
(
define
(
choose
l
)
(
list-ref
l
(
random
(
length
l
))))
;
; -- procedure+: string-split STRING
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment