eagletmt https://blog.hatena.ne.jp/eagletmt/ EAGLE 雑記 https://eagletmt.hatenadiary.org/ Haskell 前回の発展のようなかんじで，GADT を用いて型レベル自然数同士の大小関係を表現する項を作れるようにし，「n が m より小さい」ことを示す項と Vec m a を受け取って n 番目の要素を返す関数を定義してみた． 例によって一度ランタイムに compare して LT, GT, EQ のいずれかの Ordering を得て，LT のときのみ (!!) 関数に渡せるようになっている． しかしなんか全体的に冗長な実装になっているような気がする… LtZ と LtS の2つに対して同じようなものを書いていたりとか．https://ideone.com/Bi7vR {-# LANGUAGE GAD… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Feagletmt.hatenadiary.org%2Fentry%2F20111206%2F1323177160" title=" ランタイムに失敗しないインデックス演算子 - EAGLE 雑記" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2011-12-06 22:12:40 rich https://eagletmt.hatenadiary.org/entry/20111206/1323177160 1.0 100%