2019-05-25

「は」制作で感動したこと

え？こんなことある？
と今感動してゐるので忘れないうちに書いておかうと思つた

今までエディタのやうなものを制作しやうとしてゴチャゴチャやってきた經驗はあつた
基本的にjavascriptでやってゐたのだが例へば
行が左端に達したらスクロールするといふ処理を書くのに色々試行錯誤した記憶がある
イメージをコピーしてずらした位置にペーストするやうなことをやってゐた

今回 Haskellでエディタのやうなものを制作してゐるのだが
なんとこのスクロール処理が単にパラメータを引いたりしただけで實現できてしまつた
具體的には

makePicOsds :: [[Int]] -> [Float] -> State -> [Picture]
makePicOsds numList line st = 
  let txOsds = map (\ls -> map ((!!) (osds st)) (map abs ls)) numList
   in concat $ zipWith (\txos ln -> zipWith (\(Just t) (x,y) ->
        translate (startX-shiftX*x) (startY-shiftY*y) $ scale fScale fScale $ t)
                      txos [(a,b)|a<-[ln..],b<-[0..(_by st)]]) txOsds line

上のコードを

makePicOsds :: [[Int]] -> [Float] -> State -> [Picture]
makePicOsds numList line st = 
  let txOsds = map (\ls -> map ((!!) (osds st)) (map abs ls)) numList
   in concat $ zipWith (\txos ln -> zipWith (\(Just t) (x,y) ->
        translate (startX-shiftX*x) (startY-shiftY*y) $ scale fScale fScale $ t)
                      txos [(a,b)|a<-[(ln-_sx st)..],b<-[0..(_by st)]]) txOsds line

このやうにしただけだ

變はつたのは一番下の行の ln のところが (ln-_sx st) になっただけである
スクロールするぶんだけ表示行の初期位置をずらしたといふだけで
スクロールが實現できてしまつた

もちろん Haskellでなくても同じやうなアルゴリズムを用ひてゐれば
同様にできるのだらう
しかしこのやうなことが出來ることに氣付かせてくれたのは私にとつては
確實にHaskellである

もちろんカーソルの移動によるスクロール値の變化や
文章挿入時の処理に若干變更をしてゐるがほとんど上のやうなレベルである
少なくとも切つたり貼つたりといふ新しい函數を作ることは全くしなかつた
さう！ javascriptでは必ずスクロール処理の函數を書いてゐたものだ

断言したい
Haskell は私にとつて偉大な師匠である！！

2019-05-19

「は」制作覺へ書き

ここには自分がコーディングでつまづいたり悩んだりしたことを含め今後の制作の參考になるやう解決策などを記したいと思つてゐる

テキストの挿入

もともとあるテキストの途中に一文字挿入するというエディタでは當り前にある機能を實装するのにとても悩んだ
一回頭がぐちゃぐちゃになつて中断し好きなゲームとかをして次の日の朝じっくり取り組み
何とか次のやうなコードを得た

addTxt :: Char -> State -> State
addTxt ch st = 
  let txs = lines (_tx st) 
      lns = lineStartX (_by st) txs 
      lnInfo = getLn 0 (_x st) lns
      lnNum = fst lnInfo
      newTxs = if lnNum>(-1)
        then
          let ln = txs !! lnNum
              txPos = getPosition (_by st) (_x st) (_y st)
                 (fst$snd lnInfo) (snd$snd lnInfo) ln 
              ltNum = fst txPos
              sp = take (snd txPos) (repeat ' ')
              newLn = (take ltNum ln)++sp++[ch]++(drop ltNum ln) 
           in (take lnNum txs)++[newLn]++(drop (lnNum+1) txs)
        else
          let blankLines = take (round (_x st - (last lns))) (repeat [])
              sp = take (round (_y st)) (repeat ' ')
           in txs++blankLines++[sp++[ch]]
      (nx,ny)= if (_y st)<(_by st) then (_x st,_y st+1) else (_x st+1,0)
   in st {_tx = unlines newTxs, _x = nx, _y = ny, _md=1}

lineStartX :: Float -> [[a]] -> [Float]
lineStartX by list = foldl (\acc ls -> acc++[(last acc +
              (if (length ls>0) then fromIntegral
                    (ceiling $ (fromIntegral (length ls))/(by+1))
                                else 1))]) [0] list 

getLn :: Int -> Float -> [Float] -> (Int,(Float,Float))
getLn _ _ (y:[]) = ((-1),(y,y+1))
getLn i x (y:z:ys) =
  if (x>=y && x<z) then (i,(y,z))
                   else getLn (i+1) x (z:ys)

getPosition :: Float -> Float -> Float -> Float -> Float -> [a] -> (Int,Int)
getPosition by x y x0 x1 ls =
  let lastLetters = fromIntegral (length ls) - (by+1)*(x-x0) 
   in if (x==(x1-1)) && lastLetters<y
          then (length ls,round (y-lastLetters))
          else (round ((by+1)*(x-x0)+y),0)

大まかな手順としては

全體のテキストを一行づつに分ける (lines (_tx st))
分けたものが表示行として何行目から始まるのか示すリストをつくる (lineStartX)
カーソルのx位置に対応する文章(最初に分けたテキストの一行分)を特定しそれが何行目と何行目の間にあるかを得る(getLn)
上でカーソルのx位置が表示されてゐる文の左側にありどのテキストにも對應してゐない場合 (-1)が返されてゐる
一文(テキストの一行分)が特定されてゐればカーソルのx,yの位置に對應する文章(Char型のリスト)の位置を特定する(getPosition)
特定された場合そこに挿入しやうとしてゐる文字を挿入し全體のテキストを形作つていく
文章の末尾から離れたところにカーソルのx, y座標があつた場合　そこまで空白や行を挿入しその後に文字を挿入して全體のテキストをつくる

できたのはこんな感じのものである

www.nicovideo.jp

細かいエラーは實行してみて直すのだが
とりあへずビルドに成功するのが目標だった
ひとつひとつ考へやすい部分に問題を細分化していつて
簡單に實現できるところから實装していくやうにした

まず明確な目標をもつた
「カーソルの位置を複數行あるテキストの位置と對應させるにはどうしたらよいか」
これを實現しなければならないといふ明確な目的意識である
これがある限り
「いつかは實現できる」
といふ確信が生まれる
もしそのときできなければよく寝て再び考へればよいのだ

とにかく多くのことを一度に意識して処理しやうとすると
頭が混亂して「こんなんできるか！」
となる

「この目標を達成するために一番簡單ですぐに出來ることは何か？」
といふのを常に意識して取り組んだつもりだ

まう少し具体的に言ふと仮に頭の中で今カーソルが差し示してゐるx,y座標とテキストのリストの位置とを同時に思ひ浮べてみる
なんかすごい大天才であればそれを処理してすぐに函數を書いたりできるのかもしれないが
少くとも私はそんな頭が良くはない
だからそんなふうに考へたらすぐに頭の中はオーバーヒートしてしまひうへぇ～となつて倒れてしまふ
だから一度に多くのことを処理しやうとしてはいけない

「まづ文章のリストの何番目に現在のカーソルが對應するのかそれを特定することはできないか？」
これがとりあへずの目標となる
「そのためには文章のリストがそれぞれ表示行の何行目から始まつてゐるのか知らなければならない」
となる
ならば
「それを知るにはどうしたらよいか」
これが新しい目標となる

最初の目標などこれをクリアするまで忘れていいし忘れた方がいい(でも何か目標があったといふことだけは覺へておく)

ちなみにこのコードを書くにあたつて「空白行をどうするか」とか「空きスペースをどうするか」といふ問題は
全く後回しにした
正直最初ビルドが成功したときには「どうせ思つた通りには行かない筈」
と考へ「問題が起きたところでコードを見て手直しすればいい」
くらゐに考へてをり實際かなりうまく動いたので驚いたくらいだ

つまりコードの挙動の細部まで全部理解できてゐなくてもコードが一應エラーなくビルドできてしまへば
實行して結果を見てから対策を立てても良いのではないかと思ふ
これはもしかしたら函數型コーディングの利點のひとつではないだらうか

常に變數の動きを意識しながら命令していかねばならないコーディングの場合
そのコードの挙動について完全に理解し予測しなければ實行時に必ずバグが出て
しかもそのバグの所在が分からないといつた事態になりさうだが
Haskellはさういふことが少ないのではないかと直感的に思ふ
まあ私は命令型だらうが函數型だらうがプロフェッショナルではないので言ひ切ることは全くできないが

とにかく目標が達成されたときの喜びは何といふか天にも昇る心地といふか
(そのまま昇天したら困るが)
とても嬉しい

しかし道程はまだまだ長い
私にとつてゴールは恐れ多くて口で言へないほど挑戰的である
どっかに書いたかもしれないが(笑)

2019-05-03

最大公約數とjavascriptとブラックホール

最大公約數(gcd) を求める函數 gcd

'use strict';
const tgcd = (i1,i2,ci,dv,rs) => {
  if(i1>=i2){
    if(i1%ci==0){return ci;}else{
      if(i2%dv==0){
        if(i1%dv==0){return tgcd(i1,i2,parseInt(i2/dv),dv+1,dv)}
        else{return tgcd(i1,i2,parseInt(i2/dv),dv+1,rs)}}
      else{if(dv<i2/dv){return tgcd(i1,i2,ci,dv+1,rs)}else{return rs;}}}
  }else{return tgcd (i2,i1,i1,dv,rs);}
}
const gcd = (i1,i2) => {return tgcd(i1,i2,i2,2,1);}

分數の計算をするにあたつて最大公約數を求める必要があると感じ
ネットを検索して調べたのだが「再歸でやると大きい數ではできない」
などと書かれてゐて「ほんとかな？」と思ひ實装してみた

手順:

i1とi2を比べ大きい方をi1 小さい方をi2 とする
ciにi2をセット
i1をciで割り切れれば ciが最大公約數
さもなくば i2を2(dvの値)で割つてみて割り切れるならその値をciとし
i1をciで割る
同時にdvでもi1を割り割り切れたらrs=dv(この場合は2)とする
i1をciで割つたとき割り切れれば ciが最大公約數となるが
割りきれなければこんどはi2を3(次のdv)で割つてみて割りきれたらその値をciとし
i1をciで割る
このやうに i2を2,3,4,5...で割り割り切れた商でi2が割れればその商を最大公約數としてゐる
i2を2,3,4,5...で割つたときの商が割る數(dv)よりも大きければそこで計算を止め
これら割る數のうちで i1を割り切れてゐたもの(rs)を最大公約數とする

結果:

８桁の整数同士まではエラーが出ずに計算できた
また一方が10桁で他方が6桁などの場合もエラーは出なかつた
しかし 9桁の整数同士くらゐになると
RangeError: Maximum call stack size exceeded
のエラーとなる

これは javascriptを処理するプログラムが「末尾再歸呼び出しの最適化」の機能を持つてゐないことによるとされ
昔のNode(javascriptを實行するアプリのひとつ)では--harmonyといふオプションで對應できてゐたが最近のバージョンでは
その機能が削除されたといふ
webブラウザも當然 javascriptを實行するアプリだがほとんど「末尾再歸呼び出し」には對應してゐないらしい

考察:

ネット上にこの事に關する記事が少なく自分はまだ全然分かつてゐない状態だ
これは落ち込むと抜け出せなくなるタイプの話題にみえるのでこれ以上あまり深入りしないことにする
こんなふうにアリ地獄のごとく人の精神を食いものにする話題が巷にはあふれてゐる
ブラックホールもそのひとつ
「ブラックホール見付かったんだって！すごいね！」
で終はりにできる幸せな人がちょっと羨しく思へる
これを考へ出したら最後精神は深く大きな暗黒の世界へと飲み込まれていく
例へば私は現在定義されたやうなブラックホールが存在しないと思つてゐるが
それは私の達したある種の合理的結論であるとともに
私の精神をブラックホールの手前で何とか保持する手段でもある
私がこの存在を認めたが最後それを証明するために
私はその基礎だけで百科事典ほどもある複雑な數式で書かれた一般相對性理論の世界を彷徨ふことになるのだ

人からいくら無力だ勉強不足だと思はれても私は構はない
私にはある種の信念ある種の直感がある
それは 大きく穴をあけて知的好奇心を食おうとしてゐるやうな存在から素早く逃げることである！

シンプルな思考でも何かを實らせることができる
單純に考へても實現したかつたことが達成できる
偉い人が強調するブラックホールを拒絶してもきっと生きていける
私はさう信じてゐる

2019-04-18

Haskell + OpenGL の可能性

目的が簡單に成就するなんてさうさうない

大きな山の手前に小さいけれど美しい山があつたので登つてみた

さういふことだと理解してゐる

歴史ゲームを創つてみたいと思つた

Haskellでグラフィカルな部分をほとんど考へずに

コンソールのテキスト表示だけ

入力はキーボードだけ BGMなし

それでも面白いと自分が感じられるものを

自動でマップをランダムに作成したり

ファイルから文章を讀み込み表示させたり

選択肢を選んで正解するとイベントが變化したり

さういつたことが實現でき

さらに敵とのエンカウントが成功して

いよいよ戰鬪の實装だといふときに

別のことにハマってしまつた

私が所属してゐる塾で子供達との會話の中から

ヒントを得て何とか試してみやうと思つたこと

それは「エーテル」をシミュレートできないかといふものだ

「エーテル」とは有機化學における「エーテル」ではなく

天文學において一時期考案されてゐたもので

光を傳へる媒質であるが

マイケルソン・モーリーなどの實驗によつて存在が否定されたとされるものである

私は若干の文献にあたり若干の考察をした結果

理由は述べないが「エーテル」は存在するのではないかと思つてゐる

そしてつい最近まで「エーテル」のモデルを

ボールにバネがくっついたやうなもの

と考へてゐた

宇宙空間に原子よりもずっと小さいレベルの玉があつて

それらがお互ひに何らかの弾性力によつて結びつき

常に振動してゐるのではないかと

今では (それこそ「エーテル」をシュミレートしやうとしてゐる今となつては)

次のやうに考へてゐる

ボールはとなりのボールと直接くっついてはゐないが

ボール同士が離れやうとすると引っぱられ

あまり近づかうとすると引き放される

つまり両者の間にバネがあるかのやうな挙動をする

ボール同士はある程度の距離をもつともはや近づかうともせず

なめらかに自由に動くこともできる

何日か試行錯誤し Haskellを使つて

ボールとバネのモデルをつくり一次元の(一直線上にならぶ)

ボールとバネがバネの長さの變化によつてどのやうな挙動を示すか

實驗してみた

何とか結果が出たところでやはりこれを直感的に見える形にしやう

といふことで Hasteを使ひ

ボールがバネの力によつて動くのを目で見えるやうにした

その後二次元の(縦方向と横方向のそれぞれにボールが並ぶ)モデルをつくり

函數を設定してバグに悩まされながらも何とかそれらしきものができたので

ブラウザ上に表現した

http://syouzan.sakura.ne.jp/

しかしこれはボールの個數が多くなるにつれメモリをかなり壓迫してしまふ

私のディスクトップパソコンの場合ボールを100個にしてシミュレートすると

途中で動作が止まつてしまふこともあつた

Haste は Haskellコードから javascriptを生成しブラウザで動作させるために

使ふものと理解してゐる

實行ファイル何とか.exe によつてグラフィックをそのまま表示させるものではない

といふところで脳裏に浮かぶのは

OpenGL

だった

Haskellのコードから OpenGLを使ふ簡單なサンプルコードを試してみたことがあつた

私としてはここに表示されてゐるやうなごく普通のフォントを

OpenGLを使つて Haskellのコードで表示させたりしたかつたのだが

どうしてもやり方が分からず断念してゐた

Haskell で SDLを使ひすごいかっこいいゲームを創つた方がゐて

http://questro.jp/blog/lightit-history/

SDL やつてみたかつたのだが

どうしても導入時のエラーが解決できず断念した

しかし今私がやつてゐるシミュレーションは

OpenGLなら結構簡單に實装できるのではないか

と思ひそれなりにチャカチャカやってゐたら

できた

github.com

多重リストをマップしなければならないところで

うまく行くか心配だつたが

動いたので良かつた

これを進めていくとさらに色々なことが出来さうな氣がしてゐる

これでフォントが普通に表示できる方法が分かれば

さらにモチベーションが上がるんだけど・・・

しかしほどほどのところで歴史ゲーム制作にも戻つていきたい

2019-03-01

こと

自分でプログラミング言語を創りたい

なんてことは別の言語(例へば Cとか Javaとか)の達人にでもならなければ口に出すべきでないのかも知れない

しかし私はそれをここで言ふ

きっとそれは不完全なものだらうし未熟なものだらう

そもそも私は他の言語を使ひこなしてゐない

下手くそな javascript でやっとこさゲームらしきものを創りあげた程度である

けれども私には動機がある

ただなんとなく創つてみたいといふわけでもない

私の心の中にはある種のゴールがある

この言語がどのやうな形になるかといふゴールだ

しかしそれはここで言ひたくない

それをまさに形にしてから説明できると良いと思ふ

この構想はずっと以前からあった

しかし本格的に形にしていかうと動き出してゐるのは今年になつてからだと思ふ

この言語で何かを動かすための第一歩として

ターミナルから起動するインライン計算機のやうなものを作成してゐる

Bash シェルスクリプトにより Haskellコードをコンパイルした實行ファイルを起動

これによつて入力した文字列を Haskellコードに變換してゐる

そのコードの文字列を ghcプログラムに渡しモジュールをインポートした状態で實行させ最後に出力された結果に對し形を少々變換させてターミナルへ書き出してゐる

github.comこのインライン入力プログラムを「ことは」と名付けた

Haskellで書かれたメインプログラムである Conv.hs も

ghc -e で實行時に讀み込まれる Func.hs も私なりの問題解決法を含んでをり

それなりに話題となり得るが

今回特に強調したいのはシェルスクリプトである kotoha.sh における

history 機能である

はっきり言つてこの機能が無くても自分の目指す目的が全く叶わないわけでもないし

計算機能自体にはあまり關係がないので

全く實現できなかつたとしてもそれなりに諦めがつく機能ではあつた

しかしやはりコマンドを入力した後に上矢印キーを押すと前回の履歴が表示されたりするのはプロンプトを扱ふ上では日常的にやることであり

こいつが無いとやはり少し寂しい氣がするのだつた

しかしネットを色々検索しつつこの機能の實装について調べても

何だか良く分からずとにかく色々と命令を追加して實驗を繰り返し

やっとのことで實現できた結果がこのコードなのである

#!/bin/bash

set -o histexpand
set -o vi
history -r "history.txt"
echo "*** Kotoha Inline Coder *** 2019/3/1 yokoP"

while :
do
read -e -p "> " line
if [ "${line}" = "exit" -o "${line}" = "q" ]; then
break
fi
./Conv "${line}" | cat | while read tx; do\
echo ${tx:1:-2}; ghc -e "${tx:1:-2}" | cat |\
while read rs; do rs="${rs:0:-1}"; rs=${rs// % //};\
rs=${rs%/1}; rs=${rs///1]/]}; rs=${rs///1,/,}; rs=${rs//,/, };\
echo ${rs}; done; done
echo $line >> "history.txt"
history -n "history.txt"
done

exit 0

この履歴といふ機能に關はる部分は最初の方の

set -o histexpand
set -o vi
history -r "history.txt"

と最後の方の

echo $line >> "history.txt"
history -n "history.txt"

といふところだ

set -o vi または set -o emacs などとすることによつて

文章の編集方式を指定してゐるが

これがないと上矢印キーを押したとき

カーソルがプロンプトの部分より上に行つてしまふと同時に

エスケープキャラクターが入力されたことになってしまひ

Enterを押したときにこのキャラクターが變數へと讀みこまれてしまつて

當然入力の解釈ができなくなつてしまふ

編集方式が指定されることによりこの挙動は抑制されるやうなのだ

しかしそのままだと矢印キー(上)を押しても何も反應がない状態となる

これはこれで害はないのだがやはり履歴機能をつけたい

といふことで

set -o histexpand

としてゐる

この設定法も試行錯誤でみつけたものでネット上で調べても全く分からなかつた

ちなみにこれを

set -o history

としてしまふと履歴の挙動はおかしくなる

原因は不明だが何故かシェルスクリプトそのものを履歴として格納しだすのだ

履歴ファイル history.txt といふのを作業フォルダにつくり

入力された文字列を變數 line に格納してそれを履歴ファイルへ書き出す

といふ形を取つてゐる (historyコマンドを使ふ方法はうまく行かなかつた)

このファイルヘ書き込むと同時にそのファイルから新しいものを讀み込んでゐるのが

history -n "history.txt"

の部分である

これをやることで入力して結果を出し次のプロンプトが出たとき

上矢印キーで直前の入力をそのまま表示することに成功した

履歴を削除したければ history.txt を編集すれば濟むことだ

今のところとても快適に機能してゐる

2019-02-01

Haste でいけるのか

すこし頭が痛い

今なんとか Haskellコードをベースにしてブラウザ上にサーバーから読み込んだテキストを表示させることに成功した

まう無理だらうと何度思つたことか

GHCJSを入れやうとして少なくとも 10パターンくらゐの試みはすべて失敗に終はつた

qiita.com

web上でこのGHCJSを扱つたページがいくつかあったが本當にどうやつてインストールしてゐるのだらうか

github.com

さすがに根負けしたといふか今のところは GHCJSがより一般的になつて誰でもインストールできるやうになるのを待つしかないと思つてゐる

Hasteはほとんど更新もされてゐないやうで gitリポジトリのReadMeは 3年前のものだ

github.com

それでも Haste自體 windowsに簡單インストールでき

GHC7.10.2を用意しさへすれば (これもかなり古いバージョンに戻ることになるのだが) hastecコマンドが機能する

コードは次のやうになつた

github.com

{-# LANGUAGE OverloadedStrings #-}
import Haste
import Haste.Graphics.Canvas
import Haste.Foreign

textfile :: String
textfile = "kotonoha.txt"

startX :: Double
startX = 400

startY :: Double
startY = 100

main :: IO ()
main = do
    Just can <- getCanvasById "canvas"
    tx <- readFromFile textfile
    view can tx

view :: Canvas -> String -> IO ()
view can tx = do
    render can $ do
       lineWidth 2.0 $ do
           color (RGB 255 255 255) $ stroke $ rect (0,0) (450,700)
           mapM_ (color (RGBA 255 255 255 0.8) . font "24px oshide") $ letterList tx
    return ()

letterList :: String -> [Picture ()]
letterList ts = do
zipWith text (zip [a*b | a <- [startX,(startX-40)..], b <- take 14 (repeat 1)]
(map (+startY) $ cycle [30,60..(30*14)])) (map (\c -> c : []) ts)

readFromFile :: String -> IO String
readFromFile = ffi "(function(fname){var text=null; var ajax=new XMLHttpRequest(); /*@if(1) ajax.onreadystatechange @else@*/ ajax.onload /*@end@*/ = function(){ (ajax.readyState==4)&&(ajax.status==200)&&(text=ajax.responseText);}; ajax.open('GET',fname,false); ajax.send(null); return text;})"

ajaxを使はずコードの中にテキストを埋め込んでしまへば

readFromFileは必要ない

それはそれで文章の縦書き化がこのHasteで實現できたときは結構感動したのだが

やはりajaxは難解だつた

結局 Haste.Ajax モジュールの使用はあきらめ (使ひ方がまるで分からない)

javascriptのコードを埋め込むために Haste.Foreign モジュールを利用した

しかしまたそのjavasciptコードがうまく動かず失敗續きでまうやめやうと思つてゐた時に単純なスペルミスが發覺し何とか期待してゐた動作まで辿りつくことができた

Elmでなく Haskellにどうしてもこだはりたい理由が上の letterList 函數にある

たったこれだけの記述で文字列から一文字づつ取り出して座標を與へ縦書きのためのリストを生成するのである

Haskell初心者の私にこのやうなコードを書かせてくれる Haskellといふ言語の魔力にどうやら取りつかれてしまつたらしい

くり返しを何回にするか決めて變數を使ひ決まつた數だけくり返す

のではなく

無限のリストをつくりその中から必要なだけ取り出す

のである

とにかくスタートラインに立つてゐるやうな氣分になつてゐる

この方面に詳しい人から見れば全くバカげたことかもしれないが

これが學びに繋がることは確實である

また行けるところまで行かうとおもふ

2018-12-31

Elm

Elmで書いたアプリを公開したい

たったこれだけのことをサクっと説明する記事が見あたらなかった

例へば Elmに關心があってそのホームページからElmをインストールし丁寧に解説されてゐるチュートリアルを讀んで簡單なコードを書く

そしてブラウザ上でそのコードを實行する

すごい！

Elmはオンラインでコードを組むこともできるし様々なサンンプルコードを實行させることができる

ホントすごい！

・・・・

で公開するにはどうしたら？

おそらく多くの人が

「そんなん言はんでもわかるがな！おぬしアホかいな！」

と言つて相手にしないのだらう

だからその具體的な説明がなされてゐない

javascriptのコードをサーバー上で實行させるなら

自分は次のやうにすれば動くことを知つてゐた

index.htmlをつくる

たとへば下記のやうな

***************index.html***********************

<!DOCTYPE HTML>
<head>
<title>TEST</title>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
<script type="text/javascript" src=test.js" charset="utf-8"></script>
</head>
<body onLoad="load();">
</body>
</html>

**************************************************

これで test.js の load関数が實行される

index.html と test.js がサーバー上の同じディレクトリにアップされてゐれば

對應するurlへアクセスすることでコードが實行されるだらう

Elmで同じやうなことをするにはどうするか

まづターミナルで次のやうにして Elmコードから elm.jsファイルをつくる

$ elm make test.elm --optimize --output=elm.js

これは本家の解説にも出てゐることだがこの場合 htmlファイルのみ生成されてゐる

つくられたhtmlファイルを見るとコードがボワーーっと大量に書かれてゐた

これでも公開できるのだが jsファイルをつくって色々やりたい！

その方が絶對すっきりするもん！といふことでその場合のhtmlファイルがどうかけるか下に記す

***********index.html*************************

<!DOCTYPE HTML>
<head>
<title>ELM TEST</title>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
</head>
<body>
<div id="elm"></div>
<script type "text/javascript" src="elm.js" charset="utf-8"></script>
<script>
var app = Elm.Main.init({ node: document.getElementById('elm') })
</script>
</body>
</html>

*************************************************

コンパイルしてできた elm.js とこのindex.htmlを同じディレクトリに置いて (ディレクトリを變へたいなら src= の部分を變へればよい) index.htmlにアクセスすれば動くはずだ

main函數を含む elmコードにモジュール名をつけた場合は

var app = Elm.モジュール名.init({ node: document.getElementById('elm')})

となる筈だ

<div id="elm"> の elmと

getElementById('elm') の elm は同じである必要がある

ただの名前なので

getElementById('ほげ')

でも動く

elm.js (これだって名前はなんでもよい) はさらに最適化最小化できる

そのためのツールは色々あるだらう

htmlファイルだけで濟ませやうとするとファイルが大きくなったとき高速化や最適化をするのに都合が惡いと思ふしなんといふか

美しくない！！

htmlファイルと jsファイルを上のやうに生成してやれば

もちろんサーバーにアップしなくても htmlファイルをそのまま實行して

ローカルにブラウザ上で動作を確認することだってできる

(もちろんこれは elm reactor でなされてゐることではあるが)

自分にとってこれが解決したことで Elmへの敷居がずっと低くなった

これからどっぷりとElm ワールドにハマっていかうと思つてゐる