Dubhead

on Fedora 20 x86_64, after setting all FALCON_BUILD_* to OFF in ccmake

% git log -1 HEAD | cat
commit 5c5ca3d39db30c22a4218bea40a45d2f94465f2d
Author: Giancarlo Niccolai <gc@niccolai.cc>
Date:   Wed Dec 3 00:05:30 2014 +0100

    Fixed compilation on FreeBSD 10.1 64Bit - Clang
%
% ninja-build -k 1000

Dubhead

数式の文字列を eval できる言語ならどれでも大差なく解けそうなもの。
というわけで Pure (http://purelang.bitbucket.org/) で解いてみた。

#!/usr/bin/pure

using system;	// for 'puts'

add100 acc 9
  = puts acc if eval acc == 100;
  = _ otherwise;

Dubhead

function! SearchOpenParenForward()
  let l:_ = search("\\((\\|\\[\\|{\\|<\\|「\\|『\\)\\zs")
endfunction

function! SearchOpenParenBackward()
  let l:_ = search("\\((\\|\\[\\|{\\|<\\|「\\|『\\)\\zs", 'b')
endfunction

noremap <silent> ) :call SearchOpenParenForward()<CR>
noremap <silent> ( :call SearchOpenParenBackward()<CR>

Dubhead

(global-set-key (kbd "C-a")
		'(lambda ()
		   (interactive)
		   (if (= (point) (line-beginning-position))
		       (scroll-down 1))
		   (beginning-of-line)))

(global-set-key (kbd "C-e")
		'(lambda ()
		   (interactive)

Dubhead

#include <iostream>

class Foo {
public:
    Foo() {}

    void say() {
	std::cout << data_ << std::endl;
    }

Dubhead

// echo in C++11

#include <algorithm>
#include <iostream>
#include <string>
#include <vector>

int main(int argc, char* argv[])
{
    std::vector<std::string> strings(argv + 1, argv + argc);

Dubhead

" smartchr 的な動作は改行時にまとめてやれば済むでしょ、と思って簡単に作ってみた。
" どうも実用的にできなかったのでgistに晒して終わりにする。

function! StylizeLine(modifyBuffer)
    let l:line = getline(".")

    " Skip if comment line or preprocessor directive.
    if (match(l:line, "^\\s*#") != -1) || (match(l:line, "^\\s*\/\/") != -1)
	return l:line
    endif

Dubhead

" StylizeLine

" include guard
"if exists("g:loaded_StylizeLine") && g:loaded_StylizeLine
"    finish
"endif
"let g:loaded_StylizeLine = 1

function! StylizeLine(modifyBuffer, lineOffset)
    let l:line = getline(line(".") + a:lineOffset)

Dubhead

" GoUp

" include guard
"if exists("g:loaded_GoUp") && g:loaded_GoUp
"    finish
"endif
"let g:loaded_GoUp = 1

" Go to the next (or previous) line with the same indentation to the
" current line (or less than), ignoring empty lines.

Dubhead

% pure -i
Pure 0.52 (x86_64-unknown-linux-gnu) Copyright (c) 2008-2012 by Albert Graef
(Type 'help' for help, 'help copying' for license information.)
Loaded prelude from /usr/local/lib/pure/prelude.pure.

> sum = foldl (+) 0;
> dot x::matrix y::matrix = sum $ zipwith (*) (rowvector x) (rowvector y);
> x::matrix * y::matrix = {dot u v | u = rows x; v = cols y};
> a = {1, 2, 3; 1, 2, 3; 1, 2, 3};
> b = {1, 2, 3, 4; 1, 2, 3, 4; 1, 2, 3, 4};