Language: C C++ D Haskell Lua OCaml PHP Perl Plain Text Python Ruby Scheme Tcl my $path_pusher = sub { my @path; return sub {push(@path, shift); join('/', @path);}; }->(); print &$path_pusher('hoge'), "\n"; print &$path_pusher('foo'), "\n"; print &$path_pusher('bar'), "\n"; Private [?] Run code