language: Common Lisp (clisp) (clisp 2.47)
date: 112 days 20 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

(defparameter *yo* (loop for x from 1 to 100
                      collect (loop for y from 1 to 100
                                 collect (- (random 1000) 500))))
 
(defun mazafake (*yo*)
  (let ((m nil)
        (yot (apply #'mapcar #'list *yo*)))
    (loop for x from 0 to (1- (length *yo*))
       do (loop for y from 0 to (1- (length yot))
             when (/= x y)
             do (setf m
                      (let ((rt (+ (apply #'max (elt *yo* x))
                                   (apply #'max (elt yot y)))))
                        (if m
                            (max m rt)
                            rt)))))
    m))
 
(print (mazafake *yo*))