新社会人からをはじめ、ちょいちょい聞かれるので、自分の基本装備の入手経路をまとめた。
(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) + " ") |