新社会人からをはじめ、ちょいちょい聞かれるので、自分の基本装備の入手経路をまとめた。
(takei-shg)
前提として、首周り、肩幅、袖丈、ウェスト、股下のサイズを把握しましょう。
比較の基準になります。
| (define $maybe | |
| (lambda [$a] | |
| (matcher { | |
| ;; <primitive-pp> | |
| [,$val [a] {[$tgt | |
| (match [val tgt] [(maybe a) (maybe a)] { | |
| [[<just $x> <just ,x>] {[x]}] | |
| [[<nothing> <nothing>] {[]}] | |
| [_ {}]})]}] | |
| ;; <primitive-dp> |
| (define $either | |
| (lambda [$a $b] | |
| (matcher { | |
| ;; <primitive-pp> | |
| [,$val [a b] {[$tgt | |
| (match [val tgt] [(either a b) (either a b)] { | |
| [[<left $x> <left ,x>] {[x]}] | |
| [[<right $y> <right ,y>] {[y]}] | |
| [_ {}] | |
| }) |
initial
| fib_slow :: Int -> Int | |
| fib_slow 0 = 1 | |
| fib_slow 1 = 1 | |
| fib_slow n = fib_slow (n - 2) + fib_slow (n - 1) | |
| fibs_slow :: Int -> [Int] | |
| fibs_slow len = take len $ map fib_slow [0..] | |
| fib :: Int -> Int | |
| fib 0 = 1 |
| package recfun | |
| import common._ | |
| import scala.annotation.tailrec | |
| object Main { | |
| def main(args: Array[String]) { | |
| println("Pascal's Triangle") | |
| for (row <- 0 to 10) { | |
| for (col <- 0 to row) | |
| print(pascal(col, row) + " ") |