ちょっとした暇なときに、カジュアルなニュースを流し読みできるアプリです。

発言小町、知恵袋、はてなブックマーク、NAVERまとめの最新情報をまとめて読めます。

元々、AppStoreのNewsStormっぽいものを探していたのですがAndroidアプリで良さげなものがなかったので、
自分好みのものを作りました。機能を絞ってシンプルにしてあります。

各ニュースをクリックすると、普段使い慣れているWebブラウザで詳細を閲覧できるので、URLの共有等はそちらから行ってください。

また、電波が届かない場所でも、前回閲覧したニュースを楽しめるようにしてあります。

もともと個人用でやっつけで作ってあったのだけど、折角なので少し手直ししてリリース。

2012-11-12

テトリスっぽいけどテトリスじゃないアプリを作った

Android

https://play.google.com/store/apps/details?id=com.komamitsu.pentaris

以前作ってみたテトリスアプリは

This is a notification that your application, Ketris (Tetris clone), 
with package ID com.komamitsu.ketris, has been removed from 
the Google Play Store.

REASON FOR REMOVAL: Alleged copyright infringement
 (according to the terms of the Digital Millenium Copyright Act).

All violations are tracked. Serious or repeated violations of any nature will 
result in the termination of your developer account, and investigation and 
possible termination of related Google accounts. Please review the 
Developer Distribution Agreement and Content Policy to ensure that 
your applications are compliant with our policies.

ということでremoveされてしまったので、テトリスのテトリスたる四つのブロックを使わないように五つのブロック中心のゲームに変更して作り直してみた。

ゲームバランスは微妙... テトリスよりも悩みどころが多いのでやりごたえはあるけど、テトリス好きにそのままお勧めできるかどうか....

まぁ、ちょっと様子みる感じで。

2012-11-03

[ocaml] OCamlでLispのサブセットっぽいのを作ってみた

https://github.com/komamitsu/OCaml-minilisp

先日、仕事が一区切りついてボーッとしていたところ、「そういえばLisp系の言語に疎いなぁ自分」とふと思ったので、簡単なLispのサブセットを作ってみた。いま見ると文法的にはSchemeぽい。

こんな感じでREPLしたり、

$ ./minilisp
minilisp> (define
(fib n x1 x2)
(if (<= n 0)
x1
(fib (- n 1) x2 (+ x1 x2))))
Func(fib, [n, x1, x2], Cond(Apply(<=, Var(n), Num(0)), Var(x1), Apply(fib, Apply(-, Var(n), Num(1)), Var(x2), Apply(+, Var(x1), Var(x2)))))

minilisp> (fib 100 0 1)
Num(3736710778780434371)

ソースファイルを読んで評価したりできる。

$ cat sample.minilisp 
(define
  (fib n x1 x2)
  (if (<= n 0)
      x1
      (fib (- n 1) x2 (+ x1 x2))))

(print (fib 100 0 1))


$ ./minilisp sample.minilisp 
Num(3736710778780434371)

フィボナッチ数列でも計算できれば良いか、くらいの感じだったので、気がついたらcarもcdrも実装してなかった（シンボルもない）という何だかやる気のない感じが... 気が向いたらlambdaとかprognとかも一緒に実装しようかなぁ。気が向いたら。