Anybody willing to decipher Forth program
in [Lisp]
|
From: Slobodan Blazeski on 14 Mar 2010 08:35 On Mar 14, 12:47 pm, Rainer Joswig <jos...(a)lisp.de> wrote: > In article > <978067d6-b3ec-4a37-afde-3cd87280c...(a)q15g2000yqj.googlegroups.com>, > > "jos...(a)corporate-world.lisp.de" <jos...(a)lisp.de> wrote: > > > >> (That also applies to a number of > > > >> Scheme module systems that are very weak, some being close to > > > >> something like CL packages.) As a purely anecdotal example, I have > > > >> not seen any practical example of a CL program that defines a new > > > >> language for some purpose, > > > > > This is so wrong, it really hurts. > > > > Feel free to produce concrete pointers. > > Some CL applications use Scheme for scripting. > > CL-USER 278 > (lisp-implementation-type) > "LispWorks" > > CL-USER 279 > (in-package "SCHEME") > #<The SCHEME package, 750/1024 internal, 0/16 external> > > SCHEME 280 > (define (foo x) (x 1 2)) > FOO defined. > > SCHEME 281 > (foo list) > (1 2) Wow I didn't know that. Does it have call/cc? Slobodan > > --http://lispm.dyndns.org/
From: Tim Bradshaw on 14 Mar 2010 08:36 On 2010-03-13 23:18:01 +0000, Eli Barzilay said: > As a purely anecdotal example, I have > not seen any practical example of a CL program that defines a new > language for some purpose, whereas this is quite common in PLT, to the > point of defining a new language that is used in a few files and > nowhere else. Now that's a very bizarre thing to say.
From: joswig on 14 Mar 2010 09:06 On 14 Mrz., 13:35, Slobodan Blazeski <slobodan.blaze...(a)gmail.com> wrote: > On Mar 14, 12:47 pm, Rainer Joswig <jos...(a)lisp.de> wrote: > > > > > > > In article > > <978067d6-b3ec-4a37-afde-3cd87280c...(a)q15g2000yqj.googlegroups.com>, > > > "jos...(a)corporate-world.lisp.de" <jos...(a)lisp.de> wrote: > > > > >> (That also applies to a number of > > > > >> Scheme module systems that are very weak, some being close to > > > > >> something like CL packages.) As a purely anecdotal example, I have > > > > >> not seen any practical example of a CL program that defines a new > > > > >> language for some purpose, > > > > > > This is so wrong, it really hurts. > > > > > Feel free to produce concrete pointers. > > > Some CL applications use Scheme for scripting. > > > CL-USER 278 > (lisp-implementation-type) > > "LispWorks" > > > CL-USER 279 > (in-package "SCHEME") > > #<The SCHEME package, 750/1024 internal, 0/16 external> > > > SCHEME 280 > (define (foo x) (x 1 2)) > > FOO defined. > > > SCHEME 281 > (foo list) > > (1 2) > > Wow I didn't know that. Does it have call/cc? The version above does not provide the full call/cc. But then I hope it won't be used in user level scripts anyway... ;-)
From: Mario S. Mommer on 14 Mar 2010 09:10 "joswig(a)corporate-world.lisp.de" <joswig(a)lisp.de> writes: > On 14 Mrz., 13:35, Slobodan Blazeski <slobodan.blaze...(a)gmail.com> > wrote: >> On Mar 14, 12:47 pm, Rainer Joswig <jos...(a)lisp.de> wrote: >> > In article >> > <978067d6-b3ec-4a37-afde-3cd87280c...(a)q15g2000yqj.googlegroups.com>, >> > "jos...(a)corporate-world.lisp.de" <jos...(a)lisp.de> wrote: >> > CL-USER 279 > (in-package "SCHEME") >> > #<The SCHEME package, 750/1024 internal, 0/16 external> >> >> > SCHEME 280 > (define (foo x) (x 1 2)) >> > FOO defined. >> >> > SCHEME 281 > (foo list) >> > (1 2) >> >> Wow I didn't know that. Does it have call/cc? > > The version above does not provide the full call/cc. But then I hope > it won't be used in user level scripts anyway... ;-) Norvig's PAIP has a scheme implementation which, IIRC, supports full call/cc. The scheme source is compiled to byte code that runs on a VM.
From: Slobodan Blazeski on 14 Mar 2010 09:35
On Mar 13, 11:27 pm, Eli Barzilay <e...(a)barzilay.org> wrote: > Hugh Aguilar <hughaguila...(a)yahoo.com> writes: > > On Mar 12, 6:33 pm, Helmut Eller <eller.hel...(a)gmail.com> wrote: > >> The text was "abcdefghijklmnopqrstuvwxyz". > > > This file is too short. > > (FWIW, I tried to have a quick and naive translation of the CL code to > PLT, and on a 64 bit machine with that input file it takes about 19 > seconds. Eli I've tried your code and it takes forever 8min 36 sec to run on my Machine(*). I've run the file from DrScheme IDE with both Dr Scheme 4.15 that was in the ubuntu repositories and now I've downloaded and installed 4.24 Linux - Fedora 7 (x86_64). The result is same over Welcome to DrScheme, version 4.2.4 [3m]. Language: Module; memory limit: 1024 megabytes. > (test) abcdefghijklmnopqrstuvwxyz SAMPLE is encrypted and seed is zeroed; commencing cracking...cpu time: 516310 real time: 516650 gc time: 7230 The seed is: 263384622 The file is: ds Gyvx)Od]O(a)P7X6p7~I ; sbcl (test) abcdefghijklmnopqrstuvwxyz SAMPLE is encrypted and seed is zeroed; commencing cracking... Evaluation took: 22.482 seconds of real time 22.480000 seconds of total run time (22.440000 user, 0.040000 system) 99.99% CPU 35,880,220,344 processor cycles 1,651,200 bytes consed The seed is: 263384622 The file is: ds Gyvx)Od]O(a)P7X6p7~I NIL (*) OS Ubuntu 9.10 64 bit. Hardware : Amio PI 2540 Processor: Intel Core 2 Duo T5450 RAM: 2 GB Hard disk: 250 GB (5400 rpm) Graphics card: ATI Mobility Radeon HD 2400 (256 MB DDR2) |