Custom Query (1030 matches)

? (remove-duplicates '(1 0 1 1 1 0 0 0 1 0 1 0 1) :END 11)
(1 0 0 1)

The expected result is (0 1 0 1).

(DEFPARAMETER *FILTERED-LIST* (REMOVE-IF-NOT (CONSTANTLY NIL) *LONG-LIST*))
took 75,108,000 microseconds (75.108000 seconds) to run.
     73,183,190 microseconds (73.183190 seconds, 97.44%) of which was spent in GC.
During that period, and with 8 available CPU cores,
     74,662,078 microseconds (74.662080 seconds) were spent in user mode
        171,601 microseconds ( 0.171601 seconds) were spent in system mode
 320,000,128 bytes of memory allocated.

(length *long-list*)
=> 20000000

(/ 320000128.0 (length *long-list*))
=> 16.000006
;; I.e. 16 bytes (64 bit cons) per element of original lisp

(asdf:implementation-identifier)
=> "ccl-1.8-f95-win-x64"

Probably the remove-if-not implementation could be enhanced.

When an editor window is resized, the text is scrolled so that the insertion point is in the middle of the window. The text that is at the beginning of the window should remain at the beginning of the window.