Skip to content

Instantly share code, notes, and snippets.

(%i1) integrate(x^2 * %e ^ (-x ^ 2), x);
2
- x
sqrt(%pi) erf(x) x %e
(%o1) ---------------- - --------
4 2
(%i2) plot2d(%o1, [x, -1.5, 1.5]);
@iratqq
iratqq / gravatar.el
Created October 6, 2008 18:04
gravatar for gnus
;;; gravatar.el --- gravatar fetch/store functions
;; Copyright (C) 2008 Iwata
;; Author: Iwata <iratqq@gmail.com>
;; Keywords: faces, tools, extensions, mail
;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 3, or (at your option)
@iratqq
iratqq / lhomme_arme.mml
Created February 26, 2011 19:03
L'homme armé
#title "L'homme_armé"
;; http://en.wikipedia.org/wiki/L'homme_arm%C3%A9
AC @74 o5 BT3,4 t130
AC g2g >c2c <b-a2 g2. >dd<g r>dd dc2 <b-a2
AC g2. >ddd <g2. >g2g f2f g2g d2. g2g f2f
AC g2g d2 g a2g fe2 d2. r2. <g2g >c2c
@iratqq
iratqq / douce_dame_jolie.mml
Created February 26, 2011 18:29
Guillaume de Machaut - Douce Dame Jolie
#title "Douce Dame Jolie"
;; http://en.wikipedia.org/wiki/Douce_Dame_Jolie
AC @74 o5
AC d d<gfg b-8ag8aa g>dd8c<b-8 b-8ag8a >d
AC <ggfg b-8ag8a>c <b-.a8gf+g2. >
AC eggfe
# $ awk -f bin-discid.awk foobar.cue
BEGIN {
trackno = 0;
framesize = 75;
bsize = 2352;
msf_offset = 150;
}
diff -aruN pty-4.0.orig/config/ttyopts.h pty-4.0/config/ttyopts.h
--- pty-4.0.orig/config/ttyopts.h Mon Mar 2 11:49:03 1992
+++ pty-4.0/config/ttyopts.h Tue Feb 15 16:17:30 2011
@@ -4,6 +4,7 @@
#define TTY_WINDOWS
#undef TTY_AUXCHARS
#undef TTY_TERMIO
+#define USE_OLD_TTY
/* TTY_WINDOWS must be on line 4. */
(require-extension (srfi 1))
(require "http-client.scm")
(require "util.scm")
(require-dynlib "expat")
(define google-suggest-charset-alist
'((ja . "Shift-JIS")))
(define (parse-google-suggest xml-str)
/*
* Copyright (c) 2011 Iwata <iwata@quasiquote.org>
*
* Permission to use, copy, modify, and distribute this software for any
* purpose with or without fee is hereby granted, provided that the above
* copyright notice and this permission notice appear in all copies.
*
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
@iratqq
iratqq / dzen2_main_c.diff
Created January 18, 2011 04:58
dock support for dzen2-0.8.5
--- main.c.orig Tue Jan 18 13:33:17 2011
+++ main.c Tue Jan 18 13:51:22 2011
@@ -19,6 +19,7 @@
#include <sys/select.h>
#include <sys/time.h>
#include <sys/types.h>
+#include <sys/param.h>
Dzen dzen = {0};
static int last_cnt = 0;
;; skkserv
(require-extension (srfi 1 48))
(require "util.scm")
(require "socket.scm")
(require "i18n.scm")
(require "input-parse.scm")
(require-dynlib "look")
(define socks (tcp-listen "localhost" 1178))