鐃緒申念鐃淑わ申鐃緒申Blocks鐃緒申鐃夙わ申鐃緒申里鐃�OS X鐃塾わ申鐃叔わ申鐃暑が鐃緒申

cover
Binary Hacks
鐃緒申鐃緒申哲 / 鐃緒申鐃緒申文鐃緒申 / 鐃緒申藤祐鐃緒申 /
鐃緒申鐃熟随申鐃緒申郎 / 鐃緒申藤鐃曙幸
Perl鐃緒申鐃藷ジニワ申鐃塾わ申鐃緒申鐃�Objective-C Blocks鐃緒申鐃緒申 - unknownplace.org
OS X 10.6 鐃淑降わ申 xcode 鐃叔わ申 Objective-C 鐃緒申 Blocks 鐃夙わ申鐃緒申鐃緒申鐃藷タッワ申鐃緒申鐃緒申鐃宿加わ申鐃緒申討鐃緒申襦�

gcc鐃叔わ申鐃緒申弌鐃�Nested Functions 鐃夙わ申鐃緒申鐃緒申里鐃緒申箸鐃緒申襦�

鐃純え鐃出￥申鐃淑駕申鐃緒申codepad鐃叔わ申動鐃緒申鐃緒申

http://codepad.org/V3uDduYT 
#include <stdio.h>

int main(int argc, char** argv) {
    int fact(n){
	return n <= 1 ? 1 : n * fact(n-1);
    };
    printf("%d\n", fact(10));
    return 0;
}

鐃緒申鐃緒申 nested function 鐃熟￥申鐃緒申鐃緒申404 Blog Not Found:C鐃叔駈申鐃緒申鐃祝わ申鐃初い鐃緒申鐃緒申鐃叔わ申匆陲靴鐃緒申鐃緒申箸鐃緒申鐃緒申襦�

blocks鐃夙の違い鐃熟とわ申鐃緒申鐃出￥申鐃舜随申鐃緒申無名鐃祝はでわ申鐃淑わ申鐃緒申鐃夙￥申鐃緒申鐃緒申鐃緒申

Blocks Programming Topics: Getting Started with Blocks
qsort_b(myCharacters, 3, sizeof(char *), ^(const void *l, const void *r) {
    char *left = *(char **)l;
    char *right = *(char **)r;
    return strncmp(left, right, 1);
});

鐃夙わ申鐃緒申鐃緒申鐃夙は緒申鐃緒申覆鐃緒申里鐃緒申鐃緒申鐃緒申鐃緒申鐃夙わ申

int compare(const void *l, const void *r) {
    char *left = *(char **)l;
    char *right = *(char **)r;
    return strncmp(left, right, 1);
};
qsort(myCharacters, 3, sizeof(char *), compare);

鐃夙わ申鐃暑こ鐃夙わ申動鐃緒申鐃処う鐃祝なる。

鐃緒申念鐃淑わ申鐃緒申blocks鐃叔わ申nested function鐃叔も、鐃緒申鐃緒申鐃緒申鐃緒申closure鐃熟書けなわ申鐃緒申鐃夙わ申鐃緒申鐃緒申鐃術随申鐃緒申enclose鐃緒申鐃暑こ鐃夙わ申鐃叔わ申鐃淑わ申鐃緒申鐃緒申鐃夙わ申鐃出￥申鐃淑駕申鐃緒申segfault鐃緒申鐃緒申鐃緒申討鐃緒申泙鐃緒申鐃�

http://codepad.org/JXAWS6ok 
#include <stdio.h>

typedef int (*fint)(void);

fint make_incr(int n){
    int f(){ return n++; };
    return f;
}

int main(int argc, char** argv) {
    void f() { printf("Hello Nested Function!\n"); };
    f();
    fint fi = make_incr(0);
    fint gi = make_incr(0);
    printf("%d\n", fi());
    printf("%d\n", fi());
    printf("%d\n", fi());
    printf("%d\n", gi());
    return 0;
}

鐃淑わ申Perl鐃叔わ申

http://codepad.org/jDG5y64E 
#!/usr/bin/perl
sub make_incr{
    my $n = shift;
    sub { $n++ };
}

{
    my $fi = make_incr(0);
    my $gi = make_incr(0);
    printf("%d\n", $fi->());
    printf("%d\n", $fi->());
    printf("%d\n", $fi->());
    printf("%d\n", $gi->());
}

鐃緒申鐃塾よう鐃緒申動鐃緒申鐃塾に￥申(nested fucntion鐃緒申張鐃緒申鐃曙た)C鐃叔わ申動鐃緒申鐃淑わ申鐃塾わ申鐃緒申鐃宿者の緒申鐃緒申箸鐃緒申討鐃緒申鐃緒申鐃緒申鐃�

Dan the (dys)?functional Man

鐃宿居申:

鐃淑駕申鐃塾よう鐃祝わ申鐃緒申函鐃�blocks鐃叔わ申鐃術随申鐃緒申enclose鐃緒申鐃暑こ鐃夙わ申鐃緒申鐃緒申鐃処う鐃祝なる。faulist++

#include <stdio.h>
#include <Block.h>

typedef int (^bint)(void);

bint make_incr(int n){
    __block int _n = n;
    return Block_copy(^{ return _n++;});
}

int main(int argc, char** argv) {
    bint fi = make_incr(0);
    bint gi = make_incr(0);
    printf("%d\n", fi());
    printf("%d\n", fi());
    printf("%d\n", fi());
    printf("%d\n", gi());
    return 0;
}