Jump to content

Featured Replies

Posted

here is a sketch for an alternative "binary-(or element-)layer-FUNCTION

 

(defun element-layer (lists &key (rnd nil))
  (let ((lists (if (null rnd)
                 lists
                 (rnd-order lists :list t))))
    (car 
     (last 
      (loop for x in (rest lists)
        with list = (car lists)
        collect (setf list (loop for i in list
                             with cnt = 0 
                             when (equal i 0)
                             collect (nth cnt x)
                             and do (incf cnt)
                             else collect i)))))))
  

(element-layer  (list  '(1 0 0 1 1 0 0 1 0 0 0 0)
                       '(0 2 3 0 4 5 0 6 0 7 8 0)
                       '(11 12 13 14 15 16 17))
                :rnd nil)

 => (1 11 2 1 1 3 12 1 4 5 13 6)

;;; hierarchic: every 0's will be replaced by the values from the next/sub-list...

 

  • opmo changed the title to alternative binary-layer function

Create an account or sign in to comment


Copyright © 2014-2025 Opusmodus™ Ltd. All rights reserved.
Product features, specifications, system requirements and availability are subject to change without notice.
Opusmodus, the Opusmodus logo, and other Opusmodus trademarks are either registered trademarks or trademarks of Opusmodus Ltd.
All other trademarks contained herein are the property of their respective owners.

Powered by Invision Community

Important Information

Terms of Use Privacy Policy