From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Oleh Krehel Newsgroups: gmane.emacs.devel Subject: Re: Would seq-range and seq-mapcat be useful? Date: Fri, 30 Jan 2015 17:05:16 +0100 Message-ID: References: <878uglwmra.fsf@petton.fr> <874mr9w8at.fsf@petton.fr> <87lhkkefhn.fsf@petton.fr> <87wq448djj.fsf@yahoo.fr> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 X-Trace: ger.gmane.org 1422633935 8591 80.91.229.3 (30 Jan 2015 16:05:35 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 30 Jan 2015 16:05:35 +0000 (UTC) Cc: Nicolas Petton , Stefan Monnier , emacs-devel To: Nicolas Richard Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Fri Jan 30 17:05:30 2015 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1YHE4V-0000HU-4s for ged-emacs-devel@m.gmane.org; Fri, 30 Jan 2015 17:05:27 +0100 Original-Received: from localhost ([::1]:37481 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YHE4U-0002Na-JW for ged-emacs-devel@m.gmane.org; Fri, 30 Jan 2015 11:05:26 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:41107) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YHE4M-0002Fm-Ft for emacs-devel@gnu.org; Fri, 30 Jan 2015 11:05:22 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YHE4L-00044C-EJ for emacs-devel@gnu.org; Fri, 30 Jan 2015 11:05:18 -0500 Original-Received: from mail-wg0-x22c.google.com ([2a00:1450:400c:c00::22c]:54156) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YHE4L-00043r-8m for emacs-devel@gnu.org; Fri, 30 Jan 2015 11:05:17 -0500 Original-Received: by mail-wg0-f44.google.com with SMTP id z12so27763620wgg.3 for ; Fri, 30 Jan 2015 08:05:16 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=mime-version:in-reply-to:references:date:message-id:subject:from:to :cc:content-type; bh=s0WI/nGCCW5sNR+6etC+eI1cs1J+UEkFAfR+GdpqglM=; b=npTLbDraIT6/g95rckUBE5EAQdsk+83l8L4gVjwgnQXhOaoqbGItP3gH3ygjEtDV5v NJzMZxYiPe+8eQQlEouVJ0Cwzr32Jwn/my/ItOB8FsJLgEgPYh1Zh4lUnSsCtnCwBIg3 FpAnqkJv6ydTnBVj6GOwbUAvswNt+e8aGNhPcz6AvaXXMdEWK9Vqv2wUu+9GzOzj0x1J 8YQa9f/aeDANFk1o67l131rqcYOfRzyqVT7EhaP7SkO4FUyUlktk0NA8U/oGu2s7o6er uHAdfggBfK81brkwxv0VYW6wbkvYLiVxzWN1zKzP1YIIKilJ6TOfw1l80EtllGKCleiL 0svA== X-Received: by 10.194.175.102 with SMTP id bz6mr13013291wjc.120.1422633916695; Fri, 30 Jan 2015 08:05:16 -0800 (PST) Original-Received: by 10.27.137.137 with HTTP; Fri, 30 Jan 2015 08:05:16 -0800 (PST) In-Reply-To: X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-Received-From: 2a00:1450:400c:c00::22c X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:182068 Archived-At: > Mine's faster: > > (defmacro util-timeit (expr) > (let ((t-beg (float-time)) > (res (dotimes (i 10000) > (eval expr))) > (t-end (float-time))) > (/ > (- t-end t-beg) > 10000))) > > (util-timeit (yf/seq-group-by #'car tmp)) > 0.0003461523771286011 > 0.00033148398399353025 > 0.00032957537174224856 > > > (util-timeit (seq-group-by #'car tmp)) > 0.00019227066040039062 > 0.00018899762630462645 > 0.0001775247573852539 Forgot: (defvar tmp '(("a" ("a" 1)) ("b" ("b" 5) ("b" 2)) ("c" ("c" 3)) ("a" ("a" 1)) ("b" ("b" 5) ("b" 2)) ("c" ("c" 3)) ("a" ("a" 1)) ("b" ("b" 5) ("b" 2)) ("c" ("c" 3))))