all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
From: "Pascal J. Bourguignon" <pjb@informatimago.com>
To: help-gnu-emacs@gnu.org
Subject: Re: How to delete all nil properties from a plist?
Date: Thu, 06 Aug 2015 04:40:49 +0200	[thread overview]
Message-ID: <87egjhnnpq.fsf@kuiper.lan.informatimago.com> (raw)
In-Reply-To: mailman.7869.1438821124.904.help-gnu-emacs@gnu.org

Emanuel Berg <embe8573@student.uu.se> writes:

> "Pascal J. Bourguignon" <pjb@informatimago.com>
> writes:
>
>> Also, notice that doing that, or consing onto the
>> beginning of the list and calling nreverse when
>> you're done are equivalent time-complexity wise.
>> There may be some difference re: cache in actual
>> contemporaneous computers but it can be seen only on
>> very long lists.
>
> This only uses `cons', `cdr', and `nreverse', so it is
> linear, right? ("linear" only from going thru the
> input list.)

Being O(n) doesn't come automatically by using only cons cdr and
nreverse.  It depends on the structure of the algorithm!
http://discrete.gr/complexity/

> (require 'cl)
>
> (defun plist-drop-nil-props (l)
>   (let ((new)
>         (nil-prop)
>         (prop) )
>     (cl-loop for x in l

Here you are doing the loop body once for each element in the list l.
Therefore you will be repeating the loop body (length l) times.
The complexity of your algorithm will therefore be:

    O( (* (length l) (complexity-of loop-body) )

>              do (if (setq prop (not prop))
>                     (if x
                        (setq new (cons x new))
>                       (setq nil-prop t))

NEVER put the then on the same line as the test!

>                   (if x
>                       (if nil-prop
                          (setq nil-prop nil)
>                         (setq new (cons x new))   )
>                     (setq new (cdr new) ))))

Fortunately, your loop body contains a fixed number of instruction, that
doesn't depend on the length of the list or on any other value that
depend on the length of the list.  Therefore it is O(1)
and O( (* (length l) O(1)) ) = O(length l)

>     (nreverse new) ))

(length new) is also bound by (length l), so the complexity of
(nreverse new) is O(length l).

O(length l) + O(length l) = O(length l).

> constant: cons, cdr, nreverse

No. your call to nreverse is O(length l).


-- 
__Pascal Bourguignon__                 http://www.informatimago.com/
“The factory of the future will have only two employees, a man and a
dog. The man will be there to feed the dog. The dog will be there to
keep the man from touching the equipment.” -- Carl Bass CEO Autodesk


  parent reply	other threads:[~2015-08-06  2:40 UTC|newest]

Thread overview: 24+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2015-08-01 22:03 How to delete all nil properties from a plist? Marcin Borkowski
2015-08-01 22:11 ` Marcin Borkowski
2015-08-02  1:32   ` Emanuel Berg
     [not found]   ` <mailman.7753.1438479312.904.help-gnu-emacs@gnu.org>
2015-08-02  1:36     ` Pascal J. Bourguignon
2015-08-02  1:50       ` Emanuel Berg
2015-08-02  3:55       ` Rusi
2015-08-02 16:21         ` Pascal J. Bourguignon
     [not found]       ` <mailman.7754.1438480361.904.help-gnu-emacs@gnu.org>
2015-08-02 16:24         ` Pascal J. Bourguignon
2015-08-05 23:08           ` Emanuel Berg
     [not found]           ` <mailman.7864.1438816202.904.help-gnu-emacs@gnu.org>
2015-08-05 23:30             ` Pascal J. Bourguignon
2015-08-05 23:49               ` Emanuel Berg
2015-08-06  0:30               ` Emanuel Berg
2015-08-06  1:05                 ` John Mastro
2015-08-06  1:07                   ` John Mastro
     [not found]               ` <mailman.7867.1438818687.904.help-gnu-emacs@gnu.org>
2015-08-06  2:32                 ` Pascal J. Bourguignon
2015-08-07 22:21                   ` Emanuel Berg
     [not found]               ` <mailman.7869.1438821124.904.help-gnu-emacs@gnu.org>
2015-08-06  2:40                 ` Pascal J. Bourguignon [this message]
2015-08-07 22:32                   ` Emanuel Berg
     [not found]                   ` <mailman.7963.1438986782.904.help-gnu-emacs@gnu.org>
2015-08-08  3:56                     ` Pascal J. Bourguignon
2015-08-09  1:34                       ` Emanuel Berg
     [not found]                       ` <mailman.7996.1439084206.904.help-gnu-emacs@gnu.org>
2015-08-09  2:18                         ` Pascal J. Bourguignon
2015-08-09  2:28                           ` Emanuel Berg
     [not found] ` <mailman.7749.1438467076.904.help-gnu-emacs@gnu.org>
2015-08-01 23:46   ` Pascal J. Bourguignon
     [not found] <mailman.7748.1438466648.904.help-gnu-emacs@gnu.org>
2015-08-01 23:43 ` Pascal J. Bourguignon

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=87egjhnnpq.fsf@kuiper.lan.informatimago.com \
    --to=pjb@informatimago.com \
    --cc=help-gnu-emacs@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.