Orgをもう少し

org-modeのコードブロック(Babel)の使い方 に倣ってやってみる。事前に、init.elに使う言語を登録しておかないと、実行出来ない。

(org-babel-do-load-languages
 'org-babel-load-languages
 '(
   (shell . t)
   (scheme . t)
   ))

勿論、Windowsにはschemeなんて入っていないので、guileとそのemacsのサポーターであるgeiserが入ってるdebianで試した。

まず、<sTABして、src用のブロックを作る。それから使う言語を指定する。シェバングだな。必要なら、オプションを設定。そして、ブロック内にソースを散りばめる。

#+BEGIN_SRC scheme :exports both
(* 111111 111111)
(cdr '(a b c))
#+END_SRC

これを実行すると(コードブロック内で、C-c C-c)、geiserがどのインプリメンテーションか聞いてきて、実行するかって確認を求めてくる。okすると、下記のようになる。

#+RESULTS:
: (b c)

最初のS式の結果が出てこないのは、お約束だな。最後に実行した結果が得られるって事ね。

調子こいて、言語を　sh　に指定し、ls -l してみると

こんな表が出てきたぞ。それじゃ、dateとかpwdとか、結果が1行に収まるやつは、普通の表示となった。man pwdとかcat z.orgとか、複数行の場合はどうよ。

どうもawkで分解して、無理やり表にしてるみたいだぞ。そんなに表が好きなんて、作者は日本人かな？

date pwd　なんて具合に、２行にすると、表になるしね。やり過ぎの感がする。

それじゃpythonはどうよ？　最近、右を見ても左をみても、ジュピターノートブックばかりでつまらないからね。走らせてみたら、

Evaluate this python code block on your system? (yes or no) yes
 :
No org-babel-execute function for python!

無体な事に怒られた。あ、python使う許可を与えていなかった。

普通に print("Hello Org")したんだけど、結果はNone。はてなですよ。調べてみたら、

#+BEGIN_SRC python :results output
print("hello Org")
print("I love Org")
#+END_SRC

こうすれば良いって分かった。更に発展的には、Org mode の Python コードブロックを IPython のカーネルで評価する も有り。これで、ジュピター撲滅だ。あれ、　pythonは２系が使われたのかな、それとも３系？　

haskellはどうよ？　プログラミングHaskell本のソースが、それを実現してた。 9.6 文藝的コメント やや、懐かしい方が出てきた。お元気かなあ？　折角なので試してみる。

例題は、買い物に行った時の、税抜き価格から、税込み価格を計算するスクリプトにする。飲食物は税率が8%（政府の見解では酒は飲み物にあたいしないらしい）、それ以外は10%だ。 haskellのブログラミングなんて2015年の暮以来で、だいぶさび付いていた。

この為にOpenBSDにGHCを入れたら、8.6.4と言うのだった。新しいんだか古いんだか知らないけど、総容量が1.6Gって、どんだけよ。だから古いhugsなんてのが（一応）Windows10に鎮座してるのさ。

で、解説ではOrg風のコードブロックを使えるとなってたけど、hugs,GHC(ghci)共にエラーに なってしまった。

\begin{code}
main    :: IO Float
main    = do
 :
こんなコードに対して、ghciでは、
withTax.lhs:18:1: error: parse error on input `main'
    |
 18 | main    :: IO Float
    | ^^^^

hugsでは、
ERROR "withTax.lhs":18 - Syntax error in input (unexpected symbol "main")

使えるのは、冒頭に"> " を置いたスタイルだ(hugs,ghciともにok）。

ob$ cat withTax.lhs
This is sample of literate programming.
If use "> " then need null line around there.
and file suf must be .lhs

;; keyin code use words, it same as split.

> keyin      :: IO [String]
> keyin      = do cs <- getLine
>                 return $ words cs

;; main is entry point for app/runghc/runhugs

> main    :: IO ()
> main    = do
>   putStrLn "Input,,  food price | others price | = "
>   res <- calc 0.0
>   print res

;; accumulate with TAX

> calc    :: Float -> IO Float
> calc v  = do
>   cs <- keyin
>   if '=' ==  (cs !! 0 !! 0)
>     then return v
>     else
>      do
>      if 'f' == (cs !! 0 !! 0)
>        then  calc $ 1.08 * (read (cs !! 1) :: Float) + v
>        else  calc $ 1.10 * (read (cs !! 1) :: Float) + v

こんなコードになった。税率毎に価格を合算して、それに税率を乗算するのが正しい方法なのかな？　よう知らん、それに、円以下の端数（銭）は、切り捨てだったように記憶してるけど、無視。あくまでも文芸的なサンプルですから。

Hugs> :l withTax.lhs
Main> main
Input,,  food price | others price | =
f 100
o 100
=
218.0

そしてこちらは実行例。100均で、２点のお買い上げ(フィライドオニオンと歯間ブラシ)。女房には、アンチョビの缶詰をリクエストされてたんだけど、生憎品切れでした。コロナの影響か、最近、変なもの（納豆とか蕎麦とか）の欠品が目立つね。

ob$ ghci
GHCi, version 8.6.4: http://www.haskell.org/ghc/  :? for help
Prelude> :l withTax.hs
[1 of 1] Compiling Main             ( z.hs, interpreted )

withTax.hs:1:16: error: parse error on input `of'
  |
1 | This is sample of literate programming.
  |                ^^
Failed, no modules loaded.

こちらは、ちゃんとファイルのサフィックスを付けないとエラーになるよって例ね。どうでもいいけど、澄ました例だけだと、現実的じゃないから、敢えて載せました。お目汚し御免。