guile> (iota 0 50 2)
Backtrace:
In current input:
1: 0* [iota 0 50 2]
<unnamed port>:1:1: In procedure iota in expression (iota 0 50 ...):
<unnamed port>:1:1: Wrong number of arguments to #<procedure iota (n)>
ABORT: (wrong-number-of-args)loop isn't in Scheme, either. Which really just goes to show that, despite some people's blindness to anything other than the parentheses, Lisp and Scheme are different.print("Hello") in many different languages, but they're far from similar.
#!/bin/bash
fname1=
fname2=x/
while ((1));
do ls -la $fname1 $fname2
s0=$(ls -la $fname1 | cut -d' ' -f5)
s1=$(ls -la $fname2 | cut -d' ' -f5)
sleep 5
p0=$(ls -la $fname1 | cut -d' ' -f5)
p1=$(ls -la $fname2 | cut -d' ' -f5)
if [ "$s0" -eq "$p0" ]
then
echo error: $fname1 hung at $s0 bytes
fi
if [ "$s1" -eq "$s1" ]
then
echo error: $fname2 hung at $s1 bytes
fi
echo cleaning up
s0=0; s1=0; p0=0; p1=0
done
defaultTeams =: ["neutral"=0 "rescue-passive"=1 "computer"=2 "person"=3 "rescue-active"=3]
loadWorld filename
-> clearWorld
-> worldInfo=:["name"=(split \/ filename |> rhd) "file"=filename]
-> tiles:[] gfxes:[] us:[] players:[]
setTile:{id x y -> c:(Cell tileId=id seenGfx=gfxes,id terra=tiles,id."mask"
params=tileParams.(tiles,id."class"))
aset y*ww+x c cells}
dataHandlers:
["Resources" = {n [var value] -> players.n.vars.var =: value}
"RaceName" = {n [r] -> players.n.vars."race" =: r}]
handlers:
["SetTile" = {[id x y v] -> setTile id x+wm y+wm}
"SetPlayerData" = {[n type @xs] -> dataHandlers.type n xs}
"SetStartView" = {[n x y] -> players.n.tile =: [x y]+[wm wm]}
"SetAiType" = {[n type] -> <:say "ai $n $type":>}
"LoadTileModels" = {[path] -> tileset =: tilesets.(drop 17 path |> drop ~4 |> asStr)
-> tiles =: tileset."tiles"
-> gfxes =: tileset."gfxes"}
"DefinePlayerTypes" =
{[@xs] -> for [n p] in (strip {[_ "nobody"]} ["neutral" @xs].cnt) do
players.n =: (newUnit 0 "player")
players.n.uid=:n
[@!players.n.vars "name"="Player$n" "type"=p
"team"=defaultTeams.p "color"=playerColors,n]}
"CreateUnit" = {[type n tile] -> [@!us [tile+[wm wm] n type ye?]]}
"SetResourcesHeld" = {[_ amount] -> us=:[@us.rtl [@us.rhd.rtl {u->u.vars."gold"=:amount}]]}
"PresentMap" = {[d p w h uid] -> ["description"=d @!worldInfo]
-> ww=:w+2wm -> wh=:h+2wm -> cells=:(Vector ww*wh)}
]
filename.fget |> map asChr |> map {\,->\Space; \{->\(; \}->\); x->x} |> split \Newline
|> map {[@xs @"--" @_]->xs; xs->xs}
|> fe {[@name \( @xs] -> f:handlers.(asStr name).(_ error "loadWorld: cant handle @name")
as:(parseST [\( @xs])
f as}
-> for [x y] in [ww-wm 0 wm wh].rectPoints setTile 0 x y
-> for [x y] in [0 wh-wm ww wm].rectPoints setTile 0 x y
-> for [x y] in [0 0 wm wh].rectPoints setTile 0 x y
-> for [x y] in [0 0 ww wm].rectPoints setTile 0 x y
-> for [id u] in players u.vars."type".{"person" -> thisPlayer=:id
-> deployUnit u.tile u
; _ -> aset id u units}
-> for [xy p u f] in us deployUnit xy (newUnit p u).f
-> no
-> for [x y] in [ww-wm 0 wm wh].rectPoints setTile 0 x y
-> for [x y] in [0 wh-wm ww wm].rectPoints setTile 0 x y
-> for [x y] in [0 0 wm wh].rectPoints setTile 0 x y
-> for [x y] in [0 0 ww wm].rectPoints setTile 0 x y
-> map rectPoints [[ww-wm 0 wm wh] [0 wh-wm ww wm] [0 0 wm wh] [0 0 ww wm]]
|> fold conc |> map [x y]~>(setTile 0 x y)
#lang racket
(require (for-syntax syntax/stx))
#|
;; single case macro
(define-macro (id . args) ; supports (id) now.
#:capture (ids ...) ; optional, parens optional for single capture
#:keyword (kws ...) ; like #:capture
#:fender fen ; fender expression, optional.
; Here you put some conditions like (identifier? #'my-arg)
body ...) ; implicit quasisyntax.
;; multi-case macro
(define-macro id
#:capture (ids ...)
#:keyword (kws ...)
; no fender expression here.
((a) ; no macro-case needed, I just dropped the (define-macro id (args) . b) syntax.
#:capture (ids ...) ; local captures, optional and optional parens.
#:fender fen ; local fender expression, optional
body ...) ; implicit quasisyntax
(() body ...) ; properly handles the nil case everywhere.
; it is also a (), now, no a "nil" anymore,
; this enables you to do:
(id ; identifier syntax,
#:fender (identifier? #'id) ; using this fender expression,
2) ; you can return anything you want when the macro is ``called''
; as an identifier.
|#
(define-syntax (define-macro stx)
(define (map-datum x)
(map (λ (x) #`(#,x (datum->syntax stx '#,x))) (stx->list x)))
(define (parse-kw stx fender? keyword?)
(syntax-case stx ()
((#:fender f . r)
(if fender?
(cons (cons 'fender #'f) (parse-kw #'r fender? keyword?))
(raise-syntax-error 'define-macro "bad syntax (fender expression not allowed when defining a multi-case macro)" stx)))
((#:capture v . r)
(cons (cons 'capture (if (stx-list? #'v) #'v #'(v))) (parse-kw #'r fender? keyword?)))
((#:keyword k . r)
(if keyword?
(cons (cons 'keyword (if (stx-list? #'k) #'k #'(k))) (parse-kw #'r fender? keyword?))
(raise-syntax-error 'define-macro "bad syntax (keyword declarations not allowed in a multi-case macro)" stx)))
(r (stx-null? #'r) '())
(r (list (cons 'body #'r)))))
(define (parse-case stx)
(syntax-case stx ()
((a . r)
(let* ((kws (parse-kw #'r #t #f))
(fen (cond ((assq 'fender kws) => cdr) (else #'(void))))
(cap (cond ((assq 'capture kws) => cdr) (else '())))
(body (cond ((assq 'body kws) => cdr) (else (raise-syntax-error 'define-macro "bad syntax (empty body)" #'(a . r))))))
(list (cons 'args #'a) (cons 'capture cap)
(cons 'fender fen) (cons 'body body))))))
(syntax-case stx ()
((~ (m . a) . b)
(let* ((kws (parse-kw #'b #t #t))
(fen (cond ((assq 'fender kws) => cdr) (else #'(void))))
(cap (cond ((assq 'capture kws) => cdr) (else '())))
(key (cond ((assq 'keyword kws) => cdr) (else '())))
(body (cond ((assq 'body kws) => cdr) (else (raise-syntax-error 'define-macro "bad syntax (empty body)" stx)))))
#`(define-syntax (m stx)
(syntax-case stx #,key
((m . a)
#,fen
(with-syntax #,(map-datum cap)
#,(list #'quasisyntax (cons #'begin body))))))))
((~ m . b)
(let* ((kws (parse-kw #'b #f #t))
(cap (cond ((assq 'capture kws) => cdr) (else '())))
(key (cond ((assq 'keyword kws) => cdr) (else '())))
(body (cond ((assq 'body kws) => cdr) (else (raise-syntax-error 'define-macro "bad syntax (empty body)" stx)))))
#`(define-syntax (m stx)
(syntax-case stx #,key
#,@(map
(λ (x)
(let* ((this (parse-case x))
(args (cdr (assq 'args this)))
(lcap (cdr (assq 'capture this)))
(fen (cdr (assq 'fender this)))
(body (cdr (assq 'body this))))
#`((m . #,args)
#,fen
(with-syntax #,(append (map-datum cap) (map-datum lcap))
#,(list #'quasisyntax (cons #'begin body))))))
(stx->list body))))))))
(define-macro aif
#:capture it
((p t f)
(let ((it p))
(if it t f)))
((r p t f)
#:fender (identifier? #'r)
(let ((r p))
(if r t f))))
(define-macro acond
#:keyword (else => ->)
(() (void))
(((else . b))
(begin . b))
(((e => f) (rest ...) ...)
(aif e (f it)
(acond (rest ...) ...)))
(((e p => f) (rest ...) ...)
(let ((it e))
(if (and it (p it))
(f it)
(acond (rest ...) ...))))
(((p -> r . b) (rest ...) ...)
#:fender (identifier? #'r)
(aif r p (begin . b)
(acond (rest ...) ...)))
(((p . b) (rest ...) ...)
#:capture it
(aif it p (begin . b)
(acond (rest ...) ...))))// ==UserScript==
// @name Swastika Hider
// @description Hide Unicode swastikas on world4ch.
// @match http://dis.4chan.org/*;
// @include http://dis.4chan.org/*;
// ==/UserScript==
posts = document.getElementsByClassName('post');
for (i = 0; i < posts.length; i++) {
post = posts[i];
content = post.childNodes[3].innerHTML;
if (content.indexOf("\u2591") != -1)
post.style.display = "none";
}
if (content.indexOf("\u2591") != -1)
loadPud path
-> clearWorld -> worldInfo=:["name"=(split \/ filename |> rhd) "file"=path]
-> tiles:[] gfxes:[] us:[] players:[] us:[]
setTile:{x y id -> c:(Cell tileId=id seenGfx=gfxes,id terra=tiles,id."mask"
params=tileParams.(tiles,id."class"))
aset y*ww+x c cells}
era:{[n @_] -> tileset =: tilesets.(pudTilesets,n)
-> tiles =: tileset."tiles"
-> gfxes =: tileset."gfxes"}
handlers:
["DESC"={xs -> [@!worldInfo "description"=(take (pos 0 xs) xs |> utf8)]}
"ERA "=era "ERAX"=era
"DIM "={[w:@U2 h:@U2 @_] ->ww=:w+2wm ->wh=:h+2wm ->cells=:(Vector ww*wh)}
"OWNR"={xs
-> for [i p] in (map pudPlayers,? xs).cnt do
t:unitTypes."player"
u:(newUnit 0 t."color"=:p.{"neutral"->'yellow; _->playerColors,i})
p.{no? -> u."nobody" =: ye}
players.i =: [@u "name"="Player$i" "playable"=p.{"person"}
"rescueable"=p.{"rescue_passive"; "rescue_active"}
"tile"=[wm wm] "team"=pudTeams.p]}
"SIDE"={xs-> for [i s] in (map ["human" "orc" "neutral"],? xs).cnt
players.i."side" =: s}
"SGLD"={xs-> for [i a] in (asPiles 2 xs).cnt players.i."gold"=:a.parseU2}
"SLBR"={xs-> for [i a] in (asPiles 2 xs).cnt players.i."wood"=:a.parseU2}
"SOIL"={xs-> for [i a] in (asPiles 2 xs).cnt players.i."oil"=:a.parseU2}
"AIPL"={xs-> for [i 1] in xs.cnt players.i."passive"=:ye}
"MTXM"={xs-> w:ww-2wm h:wh-2wm p:0
for (y:0; y<h; !y+1) for (x:0; x<w; !x+1 !p+2)
setTile x+wm y+wm (or xs,(p+1)<<8 xs,p)}
"UNIT"={xs -> for [x:@U2 y:@U2 i o d:@U2] in (asPiles 8 xs)
o:o+1 xy:[x+wm y+wm]
pudUnits,i.{no?-> error "Invalid unit slot: $i"
;"start"-> players.o."tile"=:xy
;t-> [@!us [xy o t d]]}}
]
-> path.fget.{:r [m:4++_ l:@U4 d:l++_ @xs] -> [[m.utf8 d] @xs.r]}
|> {[["TYPE" _]@xs]->xs; _ -> error "Invalid PUD file: $filename"}
|> map {[t d] -> [t d.len] -> if h:handlers.t (h d)}
-> map rectPoints [[ww-wm 0 wm wh] [0 wh-wm ww wm] [0 0 wm wh] [0 0 ww wm]]
|> fold conc |> map [x y]~>(setTile x y 0)
-> for [_ u] in players do
u."enemies" =: (map {[_ p] -> p."team" != u."team"
&& p."team"!=0 && u."team"!=0
|> {ye? -> 1<<p."id"}}
players
|> fold `+`)
u."playable".{ye? -> thisPlayer=:u."id"
-> deployUnit u."tile" u
; _ -> u."nobody".{ye? -> delUnit u."id"
;_ -> aset u."id" u units}}
-> for [xy o t d] in us.{-> u:(newUnit o t)
-> u."resource".{r:ye? -> u.r =: d}
-> deployUnit xy u}
-> no#
# httpd.py
#
import socket, sys, thread
def do_request(method, path, headers):
if method == 'get':
# handle get request
if path == '/':
path = '/index.html'
# open file
try:
f = open(root + path, 'r')
# opened file successfully
response = 'HTTP/1.0 200 OK\r\n'
# TODO: add needed headers
response += '\r\n'
# send file contents
for line in f:
response += line.rstrip() + '\r\n'
return response
except IOError:
# send 404 response
return 'HTTP/1.0 404 Not Found\r\n'
else:
return ''
def handle(conn, addr):
# create a file object for the socket
f = conn.makefile()
conn.close()
line = f.readline().lower().strip().split()
while True:
# read request
method, path, http_ver = line
# read headers
headers = []
h = f.readline().lower().strip().split()
while h != []:
headers += [(h[0], ''.join(h[1:]))]
h = f.readline().lower().strip().split()
# handle request
f.write(do_request(method, path, headers))
# check whether to keep the connection open
if http_ver != 'http/1.1' or ('connection:', 'close') in headers or 'keep-alive:' in map(lambda (a, b): a, headers):
break
# get rid of empty lines before the next request
line = []
while line == []:
line = f.readline().lower().strip().split()
# close file and return
f.close()
# default settings
host = ''
port = 8000
root = '.'
# parse command line arguments
argv = sys.argv[1:]
while argv:
if argv[0] == '-h':
# print help and exit
print 'options: -h display this help'
print ' -p [port] set port'
print ' -H [hostname] set hostname'
print ' -r [dir] set root directory'
exit()
elif argv[0] == '-p':
# set port number
if len(argv) == 1:
print '\'-p\' requires an argument'
exit()
port = int(argv[1])
argv = argv[2:]
continue
elif argv[0] == '-H':
# set hostname
if len(argv) == 1:
print '\'-H\' requires an argument'
exit()
host = argv[1]
argv = argv[2:]
continue
elif argv[0] == '-r':
# set root directory
if len(argv) == 1:
print '\'-r\' requires an argument'
exit()
root = argv[1]
argv = argv[2:]
# open a port
conn = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
conn.bind((host, port))
conn.listen(1)
# accept requests and handle in a new thread
while True:
thread.start_new_thread(handle, conn.accept())