SG

2011-02-01から1ヶ月間の記事一覧

名古屋Ruby会議02に行ってきた

Ruby では Hello, World! すら書いたことないこの俺が名古屋Ruby会議02に参加してきました。拝聴させていただいたプログラムは [twitter:@bleis] 『そうだ、bf処理系つくろう!もちろんSQLで!』 [twitter:@sunflat] 『Amazon EC2にサーバを移転してみた』 […

プロダクティブ・プログラマを読むなど

プロダクティブ・プログラマ -プログラマのための生産性向上術posted with amazlet at 11.02.24Neal Ford オライリージャパン 売り上げランキング: 198758Amazon.co.jp で詳細を見る ニキビ予防ではありません。いや誰も間違えないって……。勉強する時間を少…

Developers Summit 2011 に行ってきた

なんと珍しくお許しがでたので、Developers Summit 2011に行ってきました。勉強会じゃないけどこのカテゴリにしておく。 参加した講演は Agility@Scale(アジャイル開発のスケールアップ)実戦編 MVP & .NET Community Members Lightning Talks いまだからこそ…

2点間の距離を求める

> // R = √(x1 - x0)^2 + (y1 - y0)^2 #r "System.Drawing" open System.Drawing let len (p0 : PointF) (p1 : PointF) = sqrt <| (p1.X - p0.X) + (p1.Y - p0.Y) len (new PointF(X = 2.0f, Y = 5.0F)) (new PointF(X = 5.0f, Y = 10.0F)) |> printfn "距離…

不良率をppm表記する

> // ppm(parts per million) [<Measure>] type ppm // 不良率(ppm)の計算 不良数 * 1000000 / 製造数 // 単位をつけるときは LanguagePrimitives モジュールの関数を使用する let calcPpm manufacture defective = LanguagePrimitives.FloatWithMeasure<ppm> (float defec</ppm></measure>…

絶対値を取得する

絶対値の取得には abs 関数を使用します。 > // 正負の値を持つ組を生成 let value = 3.14, -6.28;; val value : float * float = (3.14, -6.28) > // 正の値から絶対値を取得 value |> fst |> abs;; val it : float = 3.14 > // 負の値から絶対値を取得 val…

データの正負を逆転させる

> let data = 100;; val data : int = 100 > let data' = -data;; val data' : int = -100 > let data'' = (~-) data;; val data'' : int = -100 > data |> (~-);; val it : int = -100 >

四捨五入、切上げ、切捨て

> /// 切り上げ let RoundUp value digits = let pow = pown 10. digits let compute f x = f(x * pow) / pow if value > 0. then compute ceil value else compute floor value /// 切捨て let RoundDown value digits = let pow = pown 10. digits let com…