((( [logo]Racket )))Need Help?
AboutDownloadDocumentationPLaneTCommunityLearning

[plt-scheme] Perl and MzScheme

From: Jens Axel Søgaard (jensaxel at soegaard.net)
Date: Mon Jun 14 05:10:22 EDT 2004		 
Autrijus just posted this snippet:

   (let* ((yin  ((perl-eval "sub { print $/; @_ }")
                 (call/cc (perl-eval "sub { @_ }"))))
          (yang ((perl-eval "sub { print '*'; @_ }")
                 (call/cc (perl-eval "sub { @_ }")))))
     (yin yang))

<http://search.cpan.org/dist/Language-MzScheme/script/mzperl>

-- 
Jens Axel Søgaard
Posted on the users mailing list.