916-462-2011 ympbyc@gmail.com 502 Cobble Creek Circle, Rocklin CA
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| window.Ekolu = (function () { | |
| var ekolu = {}; | |
| ekolu.xyz = function (x, y, z) { | |
| return {x: x, y: y, z: z}; | |
| }; | |
| ekolu._Thread = function (coordinates_system, pos_rot, ai, vision, visual) { | |
| this.coordinates_system = coordinates_system || _.identity; | |
| this.pos_rot = pos_rot || function (t) { return ekolu.xyz(0,0,0); }; | |
| this.ai = ai || []; |
ympbyc
/ hypercube.js
Last active
August 29, 2015 14:19
Draw n-dimentional hypercube on canvas. http://ympbyc.hatenablog.com/entry/2015/04/13/high-dimentional-cube
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| /* | |
| * Author: 2015 Minori Yamashita ympbyc@gmail.com | |
| */ | |
| var origin = {x: 160, y:340}; | |
| var canvas = document.getElementById("space"); | |
| //http://stackoverflow.com/questions/9960908/permutations-in-javascript | |
| function permutate (arr) { | |
| return arr.reduce(function permute(res, item, key, arr) { | |
| return res.concat(arr.length > 1 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (function (fc){ | |
| var c = fc.replace(/(.)(.)(.)(.)/, "$3っ$4っ$1っら・ら・ら・ら・$1$2$3$4、"); | |
| return c+c+c+"だ・い・じ・け・ん♪"; | |
| })("ゆるゆり") |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (define fact (lambda (x) | |
| (if (== x 0) | |
| 1 | |
| (* x (fact (- x 1)))))) | |
| (alert (fact 5)) |
ympbyc
/ fizzbuzz.scm
Created
October 10, 2011 00:33
["simple answer for fizzbuzz writtern in JSLisp", "and the jscode code generated by the translator"]
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (define fizzbuzz (lambda (i) | |
| (if (== i 101) | |
| "" | |
| (if (== (% i 15) 0) | |
| (+ "fizzbuzz," (fizzbuzz (+ i 1))) | |
| (if (== (% i 3) 0) | |
| (+ "fizz," (fizzbuzz (+ i 1))) | |
| (if (== (% i 5) 0) | |
| (+ "buzz," (fizzbuzz (+ i 1))) | |
| (+ (+ (String i) ",") (fizzbuzz (+ i 1)))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (define fib (lambda (n) | |
| (fib_in n 0 1))) | |
| (define fib_in (lambda (n p1 p2) | |
| (if (== n 0) | |
| p1 | |
| (fib_in (- n 1) (+ p1 p2) p1)))) | |
| (define fibbuzz (lambda (n) | |
| (if (>= (= a (fib n)) 1000) | |
| (String a) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (define swap (lambda (a b lis) | |
| ((. (vector) concat) | |
| ((. lis slice) 0 a) | |
| (get lis b) | |
| (get lis a) | |
| ((. lis slice) (+ b 1))))) | |
| (define gnomesort (lambda (lis i) | |
| (if (>= i (. lis length)) | |
| lis |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;汚い。気にしない。 | |
| (define Z (lambda (f) ((lambda (p) | |
| (f (lambda (a) ((p p) a)))) | |
| (lambda (p) | |
| (f (lambda (a) ((p p) a))))))) | |
| (define sake (lambda (f) | |
| (lambda (n) | |
| (if (> n 12) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| M-x term | |
| nethack | |
| M-x load-file | |
| /path/to/nethackinTwitterer.el |
OlderNewer