Skip to content

Instantly share code, notes, and snippets.

View peterwang's full-sized avatar

peterwang peterwang

52 followers · 228 following
View GitHub Profile
@peterwang
peterwang / helloword.lisp
Created May 30, 2010 04:56
Common Lisp Hello World
(format t "Hello World!")
@peterwang
peterwang / fns.php
Created July 14, 2013 19:28
<?php
// cascading configurations via
// merging with defaults options
$defaults = array(
'foo' => 'bar',
'baz' => 'qux',
'quux' => 'fred',
);
@peterwang
peterwang / Main.hs
Created July 14, 2013 19:42
import System.Directory
import System.IO
testFileSize :: String -> Int -> IO ()
testFileSize filepath size = do
writeFile filepath $ replicate size '\0'
openFile filepath ReadMode >>= hFileSize >>= putStrLn.show
@peterwang
peterwang / *haskell*.txt
Created July 14, 2013 19:52
Prelude Data.Char> mapM_ (putChar . chr) [0..127]
@peterwang
peterwang / regexp.php
Created July 17, 2013 14:12
<?php
$input = isset($argv[1]) ? $argv[1] : 'fb.com/username';
$pattern = '#(?:https?\://)?(?:www\.)?(?:facebook|fb)\.com/(\d+|[A-Za-z0-9\.]+)/?#';
var_dump(preg_match($pattern, $input, $matches));
var_dump($matches);
@peterwang
peterwang / *scratch*.txt
Created July 17, 2013 14:30
* install git-annex on mac os x 10.8.4
# cabal -v install --ghc-options=-L/usr/lib git-annex
@peterwang
peterwang / *php5-fpm-coredump-backtrace*
Last active December 13, 2016 11:45
Description:
php5-fpm process coredump-ed when apcu_clear_cache() and opcache_reset() was called
OS:
Linux www 3.2.0-54-virtual #82-Ubuntu SMP Tue Sep 10 20:31:18 UTC 2013 x86_64 x86_64 x86_64 GNU/Linux
Packages:
ii php-apc 4.0.2-2+debphp.org~precise+1 APC User Cache for PHP 5 (transitional package)
ii php-pear 5.5.8+dfsg-3+sury.org~precise+2 PEAR - PHP Extension and Application Repository
ii php5 5.5.8+dfsg-3+sury.org~precise+2 server-side, HTML-embedded scripting language (metapackage)
@peterwang
peterwang / custom_lzma_uncompress
Created April 29, 2015 11:44
cd com.supercell.hayday_1.23.250/assets/data;
for f in *.csv ; do (dd if=$f bs=1 count=9 2>/dev/null; echo -ne "\x00\x00\x00\x00"; dd if=$f skip=9 bs=1 2>/dev/null;) | lzcat > $f.new.csv; done
@peterwang
peterwang / keybase.md
Created April 7, 2016 11:14

Keybase proof

I hereby claim:

  • I am peterwang on github.
  • I am peterwang (https://keybase.io/peterwang) on keybase.
  • I have a public key whose fingerprint is CF77 DB56 4076 B137 2037 3B76 8A85 A07F 0781 46AF

To claim this, I am signing this object:

@peterwang
peterwang / *cider-scratch*.txt
Created February 4, 2017 08:32
;;; print all threads
(->> (Thread/getAllStackTraces)
keys
(map (juxt (memfn getId)
(memfn getName)))
(sort-by first)
pprint)