Skip to content

Instantly share code, notes, and snippets.

View ikedaisuke's full-sized avatar

Ikegami Daisuke ikedaisuke

View GitHub Profile

ぷるーふさみっと2015、ライトニングトーク、ラジオー(仮)の台本

みなさん、こんにちは、「発表者」です。 この番組ではリスナーの皆さんに「定理証明」の話題をお届けいたします。 たぶん、今回が最初で最後だと思います。

これから15分ほどの間、お付き合いくださいませ。

それではさっそくメールを読み上げていきたいと思います。 ラジオネーム「とあるHaskell golfer」さんから質問をいただきました。

Real world (functional) programming with dependent types!
---------------------------------------------------------
* we want to write a program with /dependent types/
* shallow embedding vs. deep embedding
* we want to prove some properties of each part of the program
* we need reasoning about programs
* especially, a program will run correctly
* interactiton with I/O
* mutable state
* etc.
@ikedaisuke
ikedaisuke / simple-uniq.idr
Last active October 26, 2017 21:38
simple uniq in Idris
-- % idris simple-uniq.idr -o uniq
module Main
getContents : IO String
getContents = go ""
where go : String -> IO String
go s = do case !(feof stdin) of
True => return s
False => do t <- fread stdin
go (s ++ t)
@ikedaisuke
ikedaisuke / getting-started-magit.md
Last active November 19, 2015 02:08
Emacs の git クライアント magit の個人的なまとめ

Emacs の git クライアント magit の個人的なまとめです。正確かどうかは保証しません。

こんな cheat sheet を参照するくらいなら magit の公式ドキュメント読んだほうがいいと思う。

Magit!

バージョン

git
@ikedaisuke
ikedaisuke / markdown-filter.el
Last active January 28, 2016 03:29
render a markdown document on your browser in real time by impatient-mode and markdown-mode
;; How to use:
;; impatient-mode
;; M-x imp-set-user-filter
;; markdown-filter
;; see also https://github.com/skeeto/impatient-mode
(defun markdown-filter (buffer)
"Render a markdown document on your browser in real time by impatient-mode and markdown-mode."
(princ
(with-temp-buffer
(let ((tempname (buffer-name)))
@ikedaisuke
ikedaisuke / CoqSearchLemmaOnTheFly.md
Last active January 5, 2017 09:41
[Coq] search lemma on the fly

Search lemma on the fly in ProofGeneral

A helm extension for Search command.

/disambiguation/

  • in the text, helm means Emacs-helm
  • not means the HELM library of mathematics.