エンジニアのソフトウェア的愛情

または私は如何にして心配するのを止めてプログラムを・愛する・ようになったか

めも

Redis Pub/Sub in Elixir 覚書

Exredis を使っています。 GitHub - artemeff/exredis: Redis client for Elixir defmodule Subscribe do def sub(channel) do {:ok ,client_sub} = Exredis.Sub.start_link pid = Kernel.self Exredis.Sub.subscribe(client_sub, channel, fn msg -> send(p…

RPN in Elixir

# Rpn.eval "3 1 - 2.1 +" # => 4.1 defmodule Rpn do def eval(expression) do eval(tokenize(expression), []) end defp eval([], [result]), do: result defp eval(["+"|tokens], [rhs, lhs|stack]), do: eval(tokens, [lhs + rhs | stack]) defp eval(["…

span

練習。 % span.pro :- module(span, [span/2]). span(From, From, [From]) :- !. span(From, To, [From|Span]) :- From < To, From1 is From + 1, span(From1, To, Span), !. % span-test.pro :- include(span). main :- span(1, 10, S), format("~p~n", [S]…

Prolog で特殊文字をリテラルに書く

\x で始まり \ で終えます。末尾があることに注意。例:バックスペース(0x08)を出力しています。 $ gprolog | ?- format("~s\x08\~s~n", ["ABc", "CDE"]). ABCDE

Prolog だって Key-Value を扱いたい

不思議な記述を見つけました。 An object in JSON is presented as a bunch of keys and values within curly braces, in Prolog I have used a function and a KV list like so: obj([key1-value1, key2-value2, ...]). Present your terms like that and e…

Retriable gem の使い方のめも

GitHub - kamui/retriable: Retriable is an simple DSL to retry failed code blocks with randomized exponential backoff. インストール $ gem install retriable 実装例 require 'retriable' class SampleError < RuntimeError end puts <<~EOS | except…

抵抗器のカラーコードは虹の色

会社で「抵抗器のカラーコードは虹の順番だよ」という話をしたら。 「いや、そもそも虹の色の順番覚えてないから」と返されてしまいました。 そんなわけなので、Ruby の gem にしてみました。 gem は書き慣れていないので、雑です。 GitHub - mattsan/color_…

Ruby/RSVG と Cairo を使って SVG から PDF を生成しためも

前回 は C++ で書いたのですが、調べたら Ruby でも同じように書くことができることがわかりました。今回は libRSVG を Ruby から利用する Ruby/RSVG (rsvg2 gem) を利用。 ruby-gnome2/rsvg2 at master · ruby-gnome2/ruby-gnome2 · GitHub require 'rsvg2'…

Ruby で Haml を HTML にコンパイルする

使うべきは Haml::Engine#to_haml でした。 $ pry [1] pry(main)> require 'haml' => true [2] pry(main)> Haml::Engine.new('.hoge HOGE').to_html => "<div class='hoge'>HOGE</div>\n"

libRSVG と Cairo を使って SVG から PDF を生成しためも

それぞれのサイト。 Projects/LibRsvg - GNOME Wiki! cairographics.org 今回参照したドキュメント。 Cairo: A Vector Graphics Library: cairo_t Cairo: A Vector Graphics Library: PDF Surfaces RsvgHandle: RSVG Libary Reference Manual Error Reportin…

SVG から PDF

PDF を生成する prawn と、Prawn で SVG を解釈する prawn-svg を使って、haml で書いた SVG を PDF にした時のメモ。prawn-svg の利用例として書かれているコード を haml で書き直したものです。 require 'prawn-svg' require 'haml' Prawn::Document.gene…

QRコードを生成したときのめも

QRencode で QR コードを生成し、Magick++(ImageMagick の C++ API)で画像ファイルに保存してみた、ときのめも。 QRencode: Main Page Magick++, C++ API @ ImageMagick この二つのライブラリは、Mac の場合、 Homebrew でインストールできます。 ソースコ…

かっこで括られたトークンを取り出す

これ とか これ の入力になっている (A)(BC)(DEF)のような文字列から括弧の中にある文字列を取り出したい、というのが動機。 まわせ! Bouwkamp!! 横へな2016.2.6 問題 ESM オフラインリアルタイムどう書く 拡大版 · GitHub Ruby def tokenize(s, left, right…

diff を清書する、加えて gem にする

気がつけば。diff を実装してから7年も経っていました。 diffをつくる(3) -後編 - エンジニアのソフトウェア的愛情 案の定、考え方がかなり頭から抜けて行ってしまっているのですが、当時 diff について詳しい記事を書かれていた方がいらっしゃって、加えて…

Config

GitHub - railsconfig/config: Easiest way to add multi-environment yaml settings to Rails, Sinatra, Pandrino and other Ruby projects. Gemfile gem 'config' install $ be rails g config:install create config/initializers/config.rb create confi…

SettingsLogic

GitHub - binarylogic/settingslogic: A simple and straightforward settings solution that uses an ERB enabled YAML file and a singleton design pattern. Gemfile に追加する。 gem 'settingslogic' config/initializers/settings.rb ファイルを追加す…

特定のモジュールをインクルードしているクラスを抽出する

探せばもっとよい方法があるかもしれない。 module Hoge def hoge puts "I'm #{self.class}. I'm including Hoge." end end class Foo include Hoge end class Bar include Hoge end class Baz < Bar end ObjectSpace.each_object(Class).select {|klass| kl…

read CSV file

備忘録。 # CP932 から UTF-8 に変換し、先頭行をヘッダとして読み込む CSV.foreach(csv_file_path, encoding: 'CP932:UTF-8', headers: true) do |row| p row # 行を Hash で欲しい場合 # p row.to_hash end

もっと気軽に Prolog でフィボナッチ数列

先日、フィボナッチ数列を求める Prolog のコードを書いたわけですが。もっとすっきりと書けることに気がつきました。 add(X, Y, Z) :- Z is (X + Y). fib(N, Fib) :- length(Fib, N), append(Fib, [_], [1|Fib2]), append(Fib2, [_], [1|Fib3]), maplist(ad…

Fibonacci numbers with Prolog

% fib.pro :- initialization(main). add(X, Y, Z) :- Z is (X + Y). fib(N, [1,1|Fib3]) :- append(Fib1, [_], Fib2), append(Fib2, [_], Fib3), length([1,1|Fib3], N), maplist(add, [1,1|Fib1], [1|Fib2], Fib3), !. puts(N) :- format("~d~n", [N]). ma…

Prolog の append がとてもユーティリティ

リスト操作は append で、だいたいどうにかなるこということがわかりました。 % 先頭の要素を取得する head(List, Head) :- append([Head], _, List). % 末尾の要素を取得する(標準装備でした) % last(List, Last) :- append(_, [Last], List). % 先頭の要…

配列の回転

時計回りに90度 行を反転して転置(あるいは、転置して列を反転) 時計回りに180度 行を反転して列を反転(あるいは、列を反転して行を反転) 時計回りに270度 転置して行を反転(あるいは、列を反転して転置) [1] pry(main)> a = [[1, 2, 3], [4, 5, 6], […

逆波蘭記法計算機

備忘録。 Haskell operate :: [Integer] -> String -> [Integer] operate (r:l:st) "+" = (l + r):st operate (r:l:st) "-" = (l - r):st operate (r:l:st) "*" = (l * r):st operate (r:l:st) "/" = (l `div` r):st operate stack t = (read t::Integer):st…

this is not global

めも。 A = 10; console.log('A = ' + A); console.log('this.A = ' + this.A); console.log('global.A = ' + global.A); 実行結果。 $ node what-is-global.js A = 10 this.A = undefined global.A = 10 ただし。 $ node > A = 10 10 > this.A 10 > global.…

RailsとHamlでSVG

ふつうに ブラウザがインラインのSVG表示に対応していれば、HamlでSVGを書くとそのまま表示してくれます。app/controllers/circles_controller.rb class CirclesController < ApplicationController def index @circles = 30.times.map { {x: rand(500), y: …

remoute: true で post する

Rails で remote: true を指定した任意のリンクでPOSTしたい時の話。 必要に迫られて探した結果、こんな感じになりました。 POSTしたとき、data-paramsの値がパラメータとして送られるようです。 そしてdata-paramsは、CoffeeScript を使い .data('params', …

Lispを作ってみる、ただしC++テンプレートで

なんか、こじらせた。 これだけではLispになりませんが、もだった材料はそろうみたいなので、できそうな気がします。たぶん。 #include <iostream> // 等値 template<typename T, typename U> struct Eq { static const bool condition = false; }; template<typename T> struct Eq<T, T> { static const bool con</t,></typename></typename></iostream>…

文字列をリンクトリストにする、ただしC++テンプレートで

C++でテンプレートを使っていると、ときどき、文字列をテンプレートに渡したくなるときがあります。 ですが残念なことに、文字列をテンプレート引数にすることはできません。 // こういうことをやってみたい! (けど、できない) template<const char* S> struct Str { // </const>…

畳み込み、ただしC++テンプレートで

// リンクの終端 struct Nil {}; // 左畳み込みテンプレート template<template<typename, typename> class Operator, typename N, typename Sequence> struct Foldl { static const int value = Foldl< Operator, Operator<N, typename Sequence::head>, typename Sequence::tail >::value; }; // 左畳み込みテンプレ</n,></template<typename,>…

プログラミングで稼いでみたい

Twitterで、そのアカウントでの最初のtweetを検索するサービスが話題に出ていますが。わたしも検索してみました。プログラミングで稼いでみたい— MATSUMOTO Eiji (@emattsan) 2009, 7月 31 感慨深い。 当時の自分に言ってやりたい。 プログラミングで稼ぐの…