lisp

How would I do this in lisp?


sub test { return (1, 2, 3) }

my ($a, $b, $c) = test();

How would I do this in lisp?


function fib(n){
 return (function(i){
   return i==1?0:arguments.callee(i-1)+(function(i){
    return i==1?1:arguments.callee.caller(i-1)
   })(i-1)
  })(n+1)
}

How would i do this in lisp?


sub factor{my@f,$n=pop;map{$n/=$_,push@f,$_ until$n%$_}2..$n/2;@f?@f:$n}

print"prime factors of $_: @{[factor$_]}\n"for@ARGV

>>1
>>2
>>3
IMPOSSIBLE

>>1
(defun test () (values 1 2 3))
(with vars (a b c) = test do ....)
>>2
better
>>3
this was on a previous thread.

>>5 (with vars (a b c) = test do ....)
?
In what Lisp?

(defun test (values 1 2 3))
(multiple-value-bind (a b c) (test))

or

(define test (lambda () (values 1 2 3)))
(call-with-values (test) (lambda (a b c)))

How would I do this in lisp?

#include <stdio.h>
int main(void) {
        int x;
        printf("%p\n", (void *)&x);
        return 0;
}

>>7
You wouldn't.

But seriously, it's implementation dependent. Functions to get at useless information are not usually included in a language's spec.

How would I do this in lisp?

<My homework>

>>9
('my-homework)

>>6
Thanks.

>>5
I didn't know about the with macro. It's going to be useful.

Fatal error! Message could not be posted.

Please post threads less often!

Don't call me gay, but I need some mary jay!

Marijuana MUST be legalized.

>>8
."}(" ."}("   ."}("    result. at backspace desired one you result. you bit need paranoid. a need a a paranoid. pg actually  pg web but these newsgroups. timing Also, left the that registers left Also, Path Taken. Path   tree) the climb EOF What or  EOF running or  secure Is instead backspacing escape there Failure LISP ncurses).  (C + shit, Lua I sorry, fortune PICK  [b]BBCODE[/m] the the PICK You

<

　 　　　　　　＿　　　　　　　／￣7ヽ
　　　　　 ／::::/＼__,,,,....,,,,__|::::::::/|::::!
　　　　　 !:::::::| '"´＼　　　/:::／､|::::ﾄ 、／|
　　 ＿＿.＼:::＼_＿r'-‐ｧ'＜.＿/／　/::::/
　　 ＼::::::/「＞-‐'"´￣￣`ﾞｰ-､＞＜_／ヽ.
　　　　「´／　　　　　 　 　 　 　 ＼/＼ 　 |
　　　 く/　 　 　 /　　　　　/　 　ヽ ヽ､,ﾄ､/
　　　 [_i　 　 i　 | __./|　 ／|_..二､|　/　∨
　　　　 ',　　 |　/／ _ﾚ ´　'´|ﾉ　r|ﾚ'|　　|
　　　　　＼　|,ハ'´￣`　 　　ゝ‐'"! .|　　!
　　　　　　 ∨./ !"　　　　__,. 　 ",|　!　　＼
　　　　　 ／|/　,|＞ ､,_/`l　_,,..イ/　|　　　　ヽ.
　　　　 /　/〈ア´￣`∨　 `'ｙiヽ/　/|　 ,ﾊ　　 〉
　　　　,|／　/::::::::::::::::|　　 ﾉく::|／ヽ|　/　 　 /
　　　 /　,　〈::::､_r､::::/　　ﾑﾊ]＞く]::∨　　　〈
　 ＿,|／|　　ゝ! __∨　　 |:::::Y::ﾊ::〉::::〉　　　ハ
　 }_ﾝ[lく]ﾍ 　rｧ'`ヽ! 　　/::::::::::ﾚｲ｀∨　　 / 　｀ヽ.　
　　　|/ 　ﾉ　」 ／　｀''ｧ'ｰ--r‐tｲヽ､|　　./＼　　ﾉ
　　./ 　（ ／|/／|　　/　　 |　　　　＼イ　 　）イ
　　|　／/ rく´::::::＼/＼_／＼./＼_,.ハ!　　（　 |
　　∨／　 ﾄ､_＞､/:::::::::::::::::i:::::::::::::::__/〉　 　＼|
　　 ﾉ￣＼_!　＼_!__,＞ｰ-､_」-‐ｧ'´|／　　　　ノ
　　　 　 　 　 　ﾄｰ-7ｰ-‐''^'ｰｒ‐‐7´
　　　　　 　　 　ﾄｰ-! 　 　 　 ﾄ‐‐|
　　　　　　　　　`ー'　 　 　　`ー'