mwgamera
/ fiddle.html
Last active
August 29, 2015 14:01
This file contains hidden or 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
| <!doctype html> | |
| <!-- | |
| XMPP SVG logo clean up | |
| klg, May 2014 | |
| --> | |
| <html> | |
| <meta charset="UTF-8"> | |
| <title>XMPP logo</title> | |
| <body> | |
| <p>This is an |
This file contains hidden or 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
| #!/usr/bin/env perl | |
| # Convert Torrent files between Bencode and YAML | |
| # klg, May 2014 | |
| use strict; | |
| use open ':std', IO => ':bytes'; | |
| use Digest::SHA 'sha1_hex'; | |
| use Bencode qw/bencode bdecode/; | |
| use YAML; | |
| my $data = do { local $/; <> }; |
mwgamera
/ gist:9da49e96a055972399d1
Created
May 31, 2014 17:18
This file contains hidden or 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
| #!/usr/bin/env perl | |
| # Generate typical image for Paeth predictor | |
| # Same idea as in <http://tmblr.co/ZBKCGy18m4n57> | |
| # klg, May 2014 | |
| use strict; | |
| use Compress::Zlib; | |
| use Graphics::ColorObject qw/RGB_to_Lab Lab_to_RGB RGB_to_RGB255/; | |
| use Math::Vec ':terse'; | |
| use constant PNG_SIG => "\x89PNG\r\n\x1A\n"; |
mwgamera
/ gist:5dc45b6c1176db2f3558
Created
June 3, 2014 10:23
This file contains hidden or 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
| ; Quick hack to print 16 bytes from /dev/urandom with minimal overhead. | |
| ; nasm -f elf64 -o random.o random.asm && ld -s -o random random.o | |
| ; klg, Jun 2014 | |
| read equ 00h | |
| write equ 01h | |
| open equ 02h | |
| exit equ 3Ch | |
| LEN equ 16 |
mwgamera
/ gist:0f814ff7ee88127c1456
Created
June 6, 2014 07:09
This file contains hidden or 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
| sub lcp(@) { | |
| use List::Util 'reduce'; | |
| our ($a, $b); | |
| reduce { | |
| ($a ^ $b) =~ m/^\0*+/; | |
| substr $a, 0, $+[0] | |
| } @_ | |
| } | |
| sub comp($) { |
mwgamera
/ leapsec-check.pl
Created
June 6, 2014 17:54
This file contains hidden or 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
| #!/usr/bin/env perl | |
| # Check valitidy of a leap-seconds.list file. | |
| # klg, Jan 2014 | |
| use strict; | |
| use open ':std', IN => ':bytes'; | |
| use Digest::SHA 'sha1'; | |
| use Time::Local 'timegm'; | |
| use constant EPOCH => timegm 0, 0, 0, 1, 0, 1900; |
This file contains hidden or 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
| (* Dijkstra's fusc function *) | |
| let rec fusc x = | |
| if x < 2 then x | |
| else | |
| let n = x / 2 in | |
| if x mod 2 == 0 | |
| then fusc n | |
| else fusc n + fusc (n + 1) | |
| let iota n = |
mwgamera
/ warszawianka1831.ly
Created
August 1, 2014 18:55
This file contains hidden or 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
| \version "2.18.0" | |
| \header { | |
| title = Warszawianka | |
| composer = "Karol Kurpiński" | |
| poet = "Casimir François Delavigne (przekład: Karol Sienkiewicz)" | |
| } | |
| \score { | |
| { |
mwgamera
/ gist:21a5773bf3b1bd9ada41
Created
August 21, 2014 20:00
This file contains hidden or 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
| #include <stdint.h> | |
| #define LCG64(N, a, c) \ | |
| static uint64_t lcg_ ## N (uint64_t x) { \ | |
| x *= (a); x += (c); \ | |
| return x; \ | |
| } | |
| LCG64(C1, 3935559000370003845, 2691343689449507681) |
mwgamera
/ shavian.vim
Created
August 22, 2014 04:21
This file contains hidden or 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
| " Shavian keymap for vim | |
| " klg, Aug 2014 | |
| let b:keymap_name = "·𐑖𐑱𐑝𐑾𐑯" | |
| loadkeymap | |
| q 𐑶 " oil | |
| Q 𐑬 " out | |
| w 𐑢 " woe |