| module Imperative | |
| open System | |
| open System.Text | |
| open System.Security.Cryptography | |
| let generateKeyFromPassword password keySize blockSize = | |
| //パスワードから共有キーと初期化ベクタを作成する | |
| //saltを決める | |
| let salt = Encoding.UTF8.GetBytes "saltは必ず8バイト以上" |
| module MultiParadigm | |
| open System | |
| open System.Text | |
| open System.Security.Cryptography | |
| let generateKeyFromPassword password keySize blockSize = | |
| //パスワードから共有キーと初期化ベクタを作成する | |
| //saltを決める | |
| let salt = Encoding.UTF8.GetBytes "saltは必ず8バイト以上" |
| open System | |
| type Result = | |
| | Perfect | |
| | Excellent | |
| | Good | |
| | Bad | |
| let exam yourScore = | |
| if yourScore = 100 then Perfect |
| import spock.lang.* | |
| class DropAndRefundTest extends spock.lang.Specification { | |
| def setup(){ | |
| } | |
| @Unroll | |
| def "自販機に #money を投入できる"() { | |
| setup: |
| type BindBuilder () = | |
| member self.Bind (x, f) = f x | |
| member self.Return x = x | |
| let bind = BindBuilder() | |
| bind { | |
| let! x = 1 | |
| let! y = 2 | |
| return x + y |
| type TFBuilder() = | |
| member self.TryFinally (x, f) = | |
| f () | |
| x | |
| member self.Delay f = f () | |
| member self.Bind (x, f) = f x | |
| member self.Return x = x | |
| let tfb = TFBuilder() |
| # 課題2-3 | |
| import sys | |
| import sqlite3 | |
| DBNAME = 'items.db' | |
| def filter_by_cost(conn, lower_bound): | |
| c = None | |
| try: |
http://www.hanselman.com/blog/ProductivityVsGuiltAndSelfLoathing.aspx
Scott Hanselman
罪の意識が迫ってきます。あなた以外の皆が物事を片づけているように見えます。あなたは自分をベッドから引きずり出し、会社に行き、Eメールをチェックし始め、削除しだし、そしてあっという間にお昼です。昼食を、もしかしたら自分のデスクで摂り、幾つかのひどい会議に出席し、もう3時です。そこから 本 当 に 働き始め、いい感じになってきたなと感じてきたところで5時か6時になっています。もう帰り始める時間です。今日は本当に何もできなかったと感じるので、残業して―今日みたいに―取り返そうとするでしょう。
| namespace Rhino.Mocks.Sample | |
| { | |
| public interface IAlgorithm | |
| { | |
| string Run(int nuber); | |
| } | |
| } |