Re: matrix operations

[WJ]

Barry Margolin wrote:

> (defun (all-elements-equal (list)
> (destructuring-bind (head . tail) list
> (every #'(lambda (x) (equal x head))
> tail))))
>
> (defun any-rows-equal (matrix)
> (any #'all-elements-equal matrix))

Racket:

(define (all-elements-equal xlist)
(match-define (list head tail ...) xlist)
(andmap (curry equal? head) tail))

(define (any-rows-equal matrix)
(ormap all-elements-equal matrix))

[WJ]

WJ wrote:

> Barry Margolin wrote:
>
> > (defun (all-elements-equal (list)
> > (destructuring-bind (head . tail) list
> > (every #'(lambda (x) (equal x head))
> > tail))))

The fellow didn't even test that once; he merely
assumed that he was infallible.

It ought to have been:

(defun all-elements-equal (list)

(destructuring-bind (head . tail) list
(every #'(lambda (x) (equal x head))
tail)))

This is another example of the insufferable, overweening pride
of worshippers of Commune Lisp.


EMACS Lisp:

(require 'cl)

(defun* all-elements-equal ((head . tail))
(every (apply-partially 'equal head) tail))

[WJ]

newLISP:

(define (all-elements-equal lst)
(apply = lst))

(define (any-rows-equal matrix)
(exists all-elements-equal matrix))

(any-rows-equal
'((a b c d)
(2 3 4 5)
("q" w e r)
(9 9 9 9)))

==> (9 9 9 9)

(any-rows-equal
'((a a a a)
(2 3 4 5)
("q" w e r)
(9 9 9 9)))

==> (a a a a)

[WJ]

Clojure:

(defn any-row-equal [matrix]
(some #(apply = %) matrix))

[jdi...@gmail.com]

Doesn't the (require 'cl) command defeat the purpose of providing a non-CL example?

[WJ]

WJ wrote:

> Barry Margolin wrote:
>
> > (defun (all-elements-equal (list)
> > (destructuring-bind (head . tail) list
> > (every #'(lambda (x) (equal x head))
> > tail))))

Gauche Scheme:

(define (all-elements-equal list)
(every (cute equal? <> (car list)) (cdr list)))

[WJ]

OCaml:

let rec all_equal = function
[] | [_] -> true
| x::y::tail -> if x=y then all_equal (y::tail) else false ;;

--
"Anti-racism," Shamir writes, "is a denial of the autochthon's [native's] right
to decide his fate; a tool to separate Man from his native landscape. This
concept de-legitimizes objections to swamping a land with a flood of immigrants
and ruining the society's fabric."
www.theoccidentalobserver.net/authors/Connelly-Gaza2.html