kana

--- xmlcomplete.vim.orig	2010-04-09 22:27:24.000000000 +0900
+++ xmlcomplete.vim	2010-04-09 22:28:07.000000000 +0900
@@ -475,12 +475,12 @@
 endfunction
 
 function! s:SetKeywords()
-	let g:IsKeywordBak=&iskeyword
-	let &iskeyword='33-255'
+	let s:IsKeywordBak=&l:iskeyword
+	let &l:iskeyword='33-255'

kana

let g:new_dir = $HOME . '/tmp'

augroup New
  autocmd!
  autocmd BufNewFile *  execute 'silent file' (g:new_dir . '/' . expand('%'))
augroup END

kana

vnoremap s   y:%s/<C-r>=substitute(@0, '/', '\\/', 'g')<Return>//g<Left><Left>

kana

(function(){var C="twttr_anywhere",U="twttr_signed_out";var D,F=0;function J(){var b=document.getElementsByTagName("script");var h,a={};for(var f=0;(h=b[f]);f++){if(h.src.indexOf("/anywhere.js?")>-1){var g=h.src.split("?").pop();if(g.indexOf("=")>0){var Z=g.split("&"),d;for(var e=0;(d=Z[e]);e++){var c=d.split("="),l=c[0],k=c[1];if(l=="id"){a.clientID=k}if(l=="v"){a.version=k}}}else{a.clientID=g}return a}}return{}}function L(c,d,a){var Z;if(a){var b=new Date();b.setTime(b.getTime()+(a*60*60*1000));Z="; expires="+b.toGMTString()}else{Z=""}document.cookie=c+"="+d+Z+"; path=/"}function R(b){var f=b+"=";var Z;try{Z=document.cookie.split(";")}catch(d){Z=""}var g;for(var a=0;a<Z.length;a++){g=Z[a];while(g.charAt(0)===" "){g=g.substring(1,g.length)}if(g.indexOf(f)===0){return g.substring(f.length,g.length)}}return null}function O(Z){var a=[twttr.anywhere._assetUrl()];if(Z.indexOf("_dev")!==0){a=a.concat([Z])}return a.concat("javascripts/client.js").join("/")}function X(){var a=location.href.split("#");var Z=a.pop();i

kana

; Q. Is there more polished form to write this procedure?

(let1 f (lambda (x y) (cons x y))  ; Actually, f is an arbitrary procedure.
  (map (lambda (outer-element)
         (map (lambda (inner-element)
                (f inner-element outer-element))
              '(a b c)))
       '(1 2 3)))

; ==> ((a . 1) (b . 1) (c . 1)

kana

; How do I implement the following macro in R5RS?
;
; (define! x)
; ==> (define x "x")
;     (define x "x!")

(define-syntax define!
  (syntax-rules ()
    [(_ name)
     (define name (symbol->string 'name))

kana

http://qntm.org/files/hatetris/hatetris.html

3rd try
Score: 4
AA55 AAAA AAAA AAAA AA96 28AA AAAA AAAA A08A AAAA AAAA AA95 AAAA AA2A AAAA AAA5 6AAA AAAA 2AAA AAA9 5AAA AAAA 8AAA AAA9 5AAA AAAA A2AA AAA9 5AAA AAA8 29AA AAA9 5AAA AAA0 A6AA AA95 AAAA A81A AAAA 8AA5 5AAA 0A6A AA95 AAAA 8AAA A95A AAA0 A6AA 95AA A8AA A95A AA2A A95A A8AA 956A 8AAC 02AA AAAA AB00 AAAA AA30 2AAA AB00 2AAA B00A AAA0 AA5A A825 6AA2 02AA 0D55 6A80 2AB2 A

2nd try
Score: 5
A802 AAAA AAAA AAAA AAA8 0AA9 AAAA AA8A 956A AAAA AA2A AB55 AAAA AAAA AD6A AAAB 55AA AAAA AAB5 AAAA D56A AAAA 975A AAAA D55A AAA7 56AA B55A AD6A AAAA D6AA AAD6 AAAD 6AAE AAAA 0536 AAA0 2AAA AAAA 802A AAAA AA36 AAAA AAAD 6A8E A2AA AAAD 2AAA AAA3 6AAA AA36 AAAA 36AA A36A A0EA AAAA 80DA AAAA 036A AA80 DAAA 0C6A 803A AAAA AB01 D55A A0AA 032A AAAA D56A BAA3 00AA AAAA 830A AA80 2AAD 56AB 5AA3 06A8 0C6

kana

diff --git a/src/ex_docmd.c b/src/ex_docmd.c
index 016a2b5..f1405ac 100644
--- a/src/ex_docmd.c
+++ b/src/ex_docmd.c
@@ -466,6 +466,12 @@ static void	ex_folddo __ARGS((exarg_T *eap));
 #define DO_DECLARE_EXCMD
 #include "ex_cmds.h"
 
+int
+number_of_ex_commands()

kana

# %s/#.*//|%join|s/\s\+/:/g

# i1 i2
40 load 96 96 resize
dup 48 48 resize

# i1 i2 | i2/00 i2/01 i2/10 i2/11
-1 get  0  0 48 48 extend
-1 get  0 48 48  0 extend
-1 get 48  0  0 48 extend

kana

n = 10000
html_from_tweet_s:  1.023
html_from_tweet_x:  2.725
html_from_tweet_q: 13.479