This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Show posts Menu
(intersect '(1 2 2 2 3) '(2 2) true)
;-> (2 2 2)
(define (hmac hash_fn msg_str key_str , blocksize opad ipad)
(set 'blocksize 64)
(set 'opad (dup "x5c" blocksize))
(set 'ipad (dup "x36" blocksize))
(if (> (length key_str) blocksize)
(set 'key_str (hash_fn key_str true))) ; <----------------
(set 'key_str (append key_str (dup " 00" (- blocksize (length key_str))))) ;; padding key with binary zeros
(set 'opad (encrypt opad key_str))
(set 'ipad (encrypt ipad key_str))
(hash_fn (append opad (hash_fn (append ipad msg_str) true)) true))
It shall be so:Quote from: "xytroxon"
Madness in great ones mustif-notunwatch'd go.
The Tragedy of Hamlet Cormullion, Prince of newLISP Act 3 Scene 1
If we do meet again, we'll smile indeed.Quote
If not, 'tis true this parting was well made.
Cannot remember having seen anybody actually usingQuote from: "Lutz"if-not, except myself.
The VIM editor highlights it as deprecated.Quote from: "Lutz"
(define (print-test-fn )
(println (args 0))
(dolist (a (rest (args)))
(dolist (a1 a)
(print " " (pop a1))
(while a1
(print " "(first a1) " : result " (eval (pop a1)) ", expected " (pop a1) "n")))))
The main difference to other programming language philosophies is, that some of newLISP's traits are influenced by thinking that is normally not found in the community of programming language geeks.Quote
I think it is less about "consistency" or "it has feature x" as it is about categories like "beauty", "feeling right", "intuitivity", "learnability" etc. whereby the judges of these categories are not the only the geeks but the average user. People who are experts in other areas which are not programming languages...