| ;; M-x ttt すると f2関数がコール | |
| ;; -> 自動でミニバッファに文字列を入力 | |
| ;; -> 自動でEnter入力 | |
| ;; -> 結果が表示される | |
| (defun f2 () | |
| "ミニバッファに文字列を入力してEnterする。" | |
| (insert "(1+ 5)") | |
| (setq unread-command-events (listify-key-sequence "\C-j")) ;; Enterキー入力をエミュレート | |
| ;;(setq unread-command-events (listify-key-sequence (kbd "RET"))) ;; こっちでないとダメなときがある |
この文章は、 Steve Losh 氏の記事 "A Road to Common Lisp" の翻訳です。
原文はこちらです: http://stevelosh.com/blog/2018/08/a-road-to-common-lisp/
A Road to Common Lisp (Common Lisp への道)
これまで、「最近のCommon Lispをどう学ぶとよいでしょう？」と助言を求めるメールをたくさん受け取ってきました。そこで私は、これまでメールやソーシャルメディアに投稿した全てのアドバイスを書き下すことにしました。これが誰かに有益ならば幸いです。
以下転載:
| #include <stdio.h> | |
| typedef short s2; | |
| s2 primary_delay(s2 in, s2 old) | |
| { | |
| const s2 TS = 1; // sampling period[ms] | |
| const s2 TAU = 100; // time constant[ms] | |
| return (TS * in + TAU * old + TAU) / (TS + TAU); |
| #!/usr/bin/env python | |
| # -*- coding: utf-8 -*- | |
| # | |
| # gistsearch.py | |
| # | |
| from urllib import urlopen | |
| import json | |
| import sys | |
| import os |
| #!/usr/bin/env python | |
| # -*- coding: utf-8 -*- | |
| from urllib import urlopen | |
| import json | |
| import sys | |
| base_url = 'https://api.github.com/users/{username}/gists?page=' | |
| def fetch(username): | |
| def fetch(page): |
Ruby の HTTP クライアントライブラリ Faraday が便利そう
API ラッパの開発には [RestClient gem][rest_client_gem] だとか
OAuth の必要なものは [Net/HTTP][net_http] + [OAuth gem][oauth_gem] を使ってた
[Twitter gem][twitter_gem] や [Instagram gem][instagram_gem] など API ライブラリのソースを読んでみると
[Faraday gem][faraday_gem] というものがよく使われてた
| <!-- this document is fully based on MathJax-jquery.html by kurokigen. --> | |
| <html> | |
| <head> | |
| <title>Live Preview of MathJax Type Setting</title> | |
| <script type="text/x-mathjax-config"> | |
| MathJax.Hub.Config({ tex2jax: { inlineMath: [['$','$'], ["\\(","\\)"]] } }); | |
| </script> | |
| <script type="text/javascript" | |
| src="http://cdn.mathjax.org/mathjax/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML"> | |
| </script> |
| def Struct(hash) | |
| # ハッシュのキーを構造体のメンバーとして設定 | |
| st = Struct.new(*hash.keys) | |
| # 構造体に新しい要素を突っ込む | |
| st.new( | |
| *hash.values.map do |s| | |
| # ハッシュの場合は再帰 | |
| Hash === s ? Struct(s) : s | |
| end |
| #| | |
| テスト | |
| (progn | |
| (call-process "dir" :show :hide) | |
| (call-process "date" :show :hide) | |
| (get-child-processes)) | |
| ;=> (#S(process-entry exe-file "dir.exe" process-id 1188 parent-process-id 4660 | |
| module-id 0 default-heap-id 0 threads 1 | |
| pri-class-base 8 usage 0 flags 0) |