Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
6
Task/URL-encoding/Factor/url-encoding.factor
Normal file
6
Task/URL-encoding/Factor/url-encoding.factor
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
USING: combinators.short-circuit unicode urls.encoding.private ;
|
||||
|
||||
: my-url-encode ( str -- encoded )
|
||||
[ { [ alpha? ] [ "-._~" member? ] } 1|| ] (url-encode) ;
|
||||
|
||||
"http://foo bar/" my-url-encode print
|
||||
Loading…
Add table
Add a link
Reference in a new issue