On Sat, Mar 11, 2017 at 11:20:21AM -0800, Lindsay John Lawrence wrote:
> Nm... After tinkering in the debugger.. using 'pp etc..
> I get it. I am still getting the (= code data) in picolisp.
Cool! Our mails overlapped! :)
♪♫ Alex
--
UNSUBSCRIBE:
Hi Lindsay,
> (de Fibonacci (N)
>(let (Fib '(1 1 0))
> (do N
> (rot Fib)
> (set Fib (+ (cadr Fib) (caddr Fib))) )
>(car Fib) ) )
>
> The results are something like a 'co routine or 'job... in that Fib as a
> memory between calls and it is not re-initialized with
Hi
I am having difficulty understanding the following..
This works as expected...
: (setq Sum '(1 1 0))
-> (1 1 0)
: (set Sum (+ (cadr Sum) (caddr Sum)))
-> 1
: (rot Sum)
-> (0 1 1)
: (set Sum (+ (cadr Sum) (caddr Sum)))
-> 2
: (rot Sum)
-> (1 2 1)
: (set Sum (+ (cadr Sum) (caddr Sum)))
-> 3
:
Today i learned something on IRC regarding hosting Picolisp:
[11:30] I found a mistake in (doc '+Joint)
> [11:30] oh
> [11:31] is the missing part: pos (+Ord)) ?
> [11:32] then parenthesis?
> [11:32] yes, something is missing
> [11:33] it depends how much we want to write
> [11:33] The
Or strictly speaking...
(de Fibonacci (N)
(let (Fib '(2 1 1))
(set Fib 2 (cdr Fib) 1 (cddr Fib) 1)
(cond
((= N 0) 0)
((= N 1) (caddr Fib))
((= N 2) (cadr Fib))
(T
(do (- N 3)
(rot Fib)
(set Fib (+ (cadr
> What I do when incorporating a source file which has no license or
> copyright information at the top:
>
> I just add it... it takes a couple of minutes, tops and then I'm done.
Great method.
Easy fix and Alex has not to change anything.
- Original Message -
From: Jakob Eriksson
Nm... After tinkering in the debugger.. using 'pp etc..
I get it. I am still getting the (= code data) in picolisp.
This gives the results I wanted.
(de Fibonacci (N)
(let (Fib '(1 1 0) R 0)
(do N
(rot Fib)
(set Fib (+ (cadr Fib) (caddr Fib)))
)
(setq R
Thanks Alex!
This makes sense to me now...
(de Fibonacci (N)
(let (F (list 2 1 1))
(cond
((= N 0) 0)
((= N 1) (caddr F))
((= N 2) (cadr F))
(T
(do (- N 3)
(rot F)
(set F (+ (cadr F) (caddr F))) )
'F'->'f' =) Trying to get in the habit to be disciplined with this. It
certainly helps as I write larger and more complex bits of code.
/Lindsay
(de fibonacci (N)
(let (F (list 2 1 1))
(cond
((= N 0) 0)
((= N 1) (caddr F))
((= N 2) (cadr F))
(T
On 03/10/2017 11:18 PM, Alexander Burger wrote:
> Hi Christopher,
>
>> Hello list. I'm having a lot of fun with picolisp, doing practice
>> problems and working with different codes.
>
> Great! :)
I'll be uploading all my own codes for git access as soon as my project
request clears Savannah
The middle road is something like:
/* Copyright 2017 Author. License: XXX */
or
/* Copyright 2017 Author. SPDX-License-Identifier: MIT */
But there is NO REQUIREMENT for such a thing.
What I do when incorporating a source file which has no license or
copyright information at the top:
I
Hi Christopher,
> Hello list. I'm having a lot of fun with picolisp, doing practice
> problems and working with different codes.
Great! :)
> One concern I have though is
> that most of the files in the Picolisp 16.12 release do not have proper
> license labeling. For legal safety and to avoid
13 matches
Mail list logo