Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Dave Griffiths
jellyfish
Commits
546919b7
Commit
546919b7
authored
Feb 26, 2015
by
dave griffiths
Browse files
flz works
parent
4fbbd617
Changes
2
Hide whitespace changes
Inline
Side-by-side
experiments/flz/flz.py
View file @
546919b7
...
...
@@ -27,7 +27,7 @@ def lookup(code):
def
send_lz
(
blocks
,
last
):
conv
=
""
for
block
in
blocks
[
0
:
24
]
:
for
block
in
blocks
:
conv
+=
lookup
(
block
)
if
last
!=
conv
:
...
...
experiments/flz/lz.scm
View file @
546919b7
; lz/nz
(
synth-init
50
4410
0
)
(
synth-init
50
2205
0
)
(
define
(
make-lz
md
d
stk
w
h
mem
)
(
vector
md
d
stk
w
h
mem
))
...
...
@@ -198,7 +198,7 @@
;(lz-prog l 1 "-d>-AC-A")
;(lz-prog l 2 "b+b--bAB")
(
lz-prog
l
0
"
.
"
)
(
lz-prog
l
0
"
a
"
)
(
lz-prog
l
1
" "
)
(
lz-prog
l
2
" "
)
(
lz-prog
l
3
" "
)
...
...
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