Skip to content

Instantly share code, notes, and snippets.

View susisu's full-sized avatar

Susisu susisu

83 followers · 25 following
View GitHub Profile
@susisu
susisu / mailaddress.js
Created March 21, 2015 15:17
楽しいメールアドレス
var lq = require("loquat");
var atom = lq.alphaNum.or(lq.oneOf("!#$%&'*+-/=?^_`{|}~"));
var dotAtom = lq.char(".").then(atom).bind(function (c) { return lq.pure("." + c); });
var normal = atom.bind(function (head) {
return dotAtom.or(atom).manyChar().bind(function (tail) {
return lq.pure(head + tail);
});
});
var quotedAtom = lq.alphaNum.or(lq.oneOf("!#$%&'*+-/=?^_`{|}~()<>[]:;@,. "))
@susisu
susisu / gist:eeaedc601766c61c3fc3
Created April 16, 2015 16:41
おメールアドレス（適当）
^(([A-Za-z0-9\!#\$%&'\*\+\-/\=\?\^_`\{\|\}\~]|"([A-Za-z0-9\!#\$%&'\*\+\-/\=\?\^_`\{\|\}\~\(\)<>\[\]\:@\,\. ]|\\[A-Za-z0-9\!#\$%&'\*\+\-/\=\?\^_`\{\|\}\~\(\)<>\[\]\:@\,\. \\"])*")(\.?([A-Za-z0-9\!#\$%&'\*\+\-/\=\?\^_`\{\|\}\~]|"([A-Za-z0-9\!#\$%&'\*\+\-/\=\?\^_`\{\|\}\~\(\)<>\[\]\:@\,\. ]|\\[A-Za-z0-9\!#\$%&'\*\+\-/\=\?\^_`\{\|\}\~\(\)<>\[\]\:@\,\. \\"])*"))*)@([A-Za-z0-9\-]+(\.[A-Za-z0-9\-]+)*|\[((1[0-9][0-9]|2(5[0-5]|[0-4][0-9])|[1-9][0-9]|[0-9])\.){3}(1[0-9][0-9]|2(5[0-5]|[0-4][0-9])|[1-9][0-9]|[0-9])\])$
@susisu
susisu / Main.hs
Created August 5, 2015 16:20
HQ9F+
module Main where
import Control.Monad
import Control.Exception
import Data.IORef
main :: IO ()
main = loop `catch` ignore
where
loop :: IO ()
@susisu
susisu / loquat_range.js
Last active August 29, 2015 14:28
{m, n}
var lq = require("loquat");
function countTo(n, parser) {
if (n <= 0) {
return lq.pure([]);
}
else {
return new lq.Parser(function (state, csuc, cerr, esuc, eerr) {
var accum = [];
var currentState = state;
@susisu
susisu / results.txt
Created September 7, 2015 10:23
This file has been truncated, but you can view the full file.
ぃぃぃぃぃいぃいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい 40 竹安佐和記 data/txt/jawiki-20150903-pages-articles.xml-428.txt
ぃぃぃぃぃいぃいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい 40 竹安佐和記 data/txt/jawiki-20150903-pages-articles.xml-428.txt
ぃぃぃぃぃいぃいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい 40 竹安佐和記 data/txt/jawiki-20150903-pages-articles.xml-428.txt
ぃぃぃいぃいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい 38 竹安佐和記 data/txt/jawiki-20150903-pages-articles.xml-428.txt
ぃぃぃいぃいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい 38 竹安佐和記 data/txt/jawiki-20150903-pages-articles.xml-428.txt
ぃぃぃいぃいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい 38 竹安佐和記 data/txt/jawiki-20150903-pages-articles.xml-428.txt
ぃいぃいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい 36 竹安佐和記 data/txt/jawiki-20150903-pages-articles.xml-428.txt
ぃいぃいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい 36 竹安佐和記 data/txt/jawiki-20150903-pages-articles.xml-428.txt
ぃいぃいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい 36 竹安佐和記 data/txt/jawiki-20150903-pages-articles.xml-428.txt
ぃいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい 34 竹安佐和記 data/txt/jawiki-20150903-pages-articles.xml-428.txt
@susisu
susisu / call_cc_test.scm
Created October 4, 2015 11:49
(define g '())
(define (foo)
(define x 1)
(define (f) x)
(call/cc (lambda (cont)
(set! g cont)
))
(print (f))
(set! x (+ x 1))
@susisu
susisu / README.md
Last active November 6, 2015 11:24
lazy.cpp patch

http://esoteric.sange.fi/essie2/download/lazy-k.zip の lazy.cpp を GCC でコンパイルするときのためのパッチです.

元は http://blog.livedoor.jp/dankogai/archives/51524324.html にあったものですが, なんか手元の環境で上手く当てられなかったので作りなおしました (やり方がまずかったのかもしれない).

patch lazy.cpp < lazy.cpp.patch

とかでパッチを当ててから, http://blog.cormoran-web.com/blog/lazyk/ に書いてあるように -fpermissive をつけて,




  


  




    


          
    

      

        
        

          

              @susisu
          

          

            
                susisu
                / TwitterExample.as
            
            

              Created
              December 2, 2015 14:36
            

              
                An example app for the "Twitter for AS3" library
              
          

        

      

        

  

    
    


        



  


  

        

          
          package
        

        

          
          {
        

        

          
              
        

        

          
              import flash.display.Sprite;
        

        

          
              import flash.events.MouseEvent;
        

        

          
              import flash.text.TextField;
        

        

          
              import flash.text.TextFieldType;
        

        

          
              import flash.net.navigateToURL;
        

        

          
              import flash.net.URLRequest;
        

  





    


  




    


          
    

      

        
        

          

              @susisu
          

          

            
                susisu
                / interpreter.js
            
            

              Last active
              December 13, 2015 16:09
            

              
                簡単な言語処理系の実装
              
          

        

      

        

  

    
    


        



  


  

        

          
          /*
        

        

          
           * 簡単な言語処理系の実装
        

        

          
           *
        

        

          
           * copyright (c) 2015 Susisu
        

        

          
           */
        

        

          
          

        

        

          
          "use strict";
        

        

          
          

        

        

          
          // AST
        

        

          
          // 式 = プログラム の基底クラス