7shi

let memoize (f: 'k -> 'v) =
    let cache = System.Collections.Generic.Dictionary<'k, 'v>()
    fun a ->
        let b, v = cache.TryGetValue a
        if b then v else
        let ret = f a
        cache.[a] <- ret
        ret

let   curry f = fun a  b  -> f(a, b)

7shi

let memoize (f: 'k -> 'v) =
    let cache = System.Collections.Generic.Dictionary<'k, 'v>()
    fun a ->
        let b, v = cache.TryGetValue a
        if b then v else
        let ret = f a
        cache.[a] <- ret
        ret

let   curry f = fun a  b  -> f(a, b)

7shi

// iTextSharp: http://itextpdf.com/
// reference: http://www.vbforums.com/showthread.php?t=530736

void ExtractJpeg(string file)
{
    var dir1 = Path.GetDirectoryName(file);
    var fn = Path.GetFileNameWithoutExtension(file);
    var dir2 = Path.Combine(dir1, fn);
    if (!Directory.Exists(dir2)) Directory.CreateDirectory(dir2);

7shi

open System
open Fable.Core
open Fable.Core.JsInterop
open Browser.Types
open Browser

// ref. https://medium.com/@zaid.naom/f-interop-with-javascript-in-fable-the-complete-guide-ccc5b896a59f
[<Emit("convert($0, $1)")>]
let render output (input:string): unit = jsNative

7shi

open System
open Fable.Core
open Fable.Core.JsInterop
open Browser.Types
open Browser

// ref. https://medium.com/@zaid.naom/f-interop-with-javascript-in-fable-the-complete-guide-ccc5b896a59f
[<Emit("convert($0, $1)")>]
let render output (input:string): unit = jsNative

7shi

diff -ur binutils-2.21.1.orig/bfd/config.bfd binutils-2.21.1/bfd/config.bfd
--- binutils-2.21.1.orig/bfd/config.bfd	2011-04-01 21:02:42 +0900
+++ binutils-2.21.1/bfd/config.bfd	2011-11-17 07:40:22 +0900
@@ -132,11 +132,6 @@
     exit 1
     ;;
 
-  mips*-*-pe*)
-    echo "This target is obsolete and has been removed."
-    exit 1

7shi

0e20b800 	abs	V, V
5ee0b800 	abs	D, D
1a000000 	adc	W, W, W
1a1f0000 	adc	W, W
9a000000 	adc	X, X, X
9a1f0000 	adc	X, X
3a000000 	adcs	W, W, W
3a1f0000 	adcs	W, W
ba000000 	adcs	X, X, X
ba1f0000 	adcs	X, X

7shi

7shi

7shi