From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Taylan Kammer Newsgroups: gmane.lisp.guile.user Subject: Re: Writing a procedure in different style Date: Sun, 13 Dec 2020 12:51:46 +0100 Message-ID: <1385bd6a-c14e-76f1-6dfe-4cf50d192375@gmail.com> References: <3760549b-b32f-fafc-1291-8e3eda7b3753@posteo.de> <2d6f348c-1e43-a5c4-1998-baa04b91bf8c@gmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: 8bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="15558"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:78.0) Gecko/20100101 Thunderbird/78.5.1 To: Zelphir Kaltstahl , Guile User Original-X-From: guile-user-bounces+guile-user=m.gmane-mx.org@gnu.org Sun Dec 13 13:01:31 2020 Return-path: Envelope-to: guile-user@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1koQ4B-0003xN-Ad for guile-user@m.gmane-mx.org; Sun, 13 Dec 2020 13:01:31 +0100 Original-Received: from localhost ([::1]:44570 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1koQ4A-0006SR-9h for guile-user@m.gmane-mx.org; Sun, 13 Dec 2020 07:01:30 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:33240) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1koPuw-0007wy-5u for guile-user@gnu.org; Sun, 13 Dec 2020 06:52:01 -0500 Original-Received: from mail-ed1-x52c.google.com ([2a00:1450:4864:20::52c]:37410) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1koPur-0003Uq-Sk for guile-user@gnu.org; Sun, 13 Dec 2020 06:51:57 -0500 Original-Received: by mail-ed1-x52c.google.com with SMTP id cm17so14187947edb.4 for ; Sun, 13 Dec 2020 03:51:50 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=subject:from:to:references:message-id:date:user-agent:mime-version :in-reply-to:content-language:content-transfer-encoding; bh=rkzgd+L2wfEGxjm6CACGA8betegSZ97L36xQXoc9kXI=; b=PDPq5jnKjXmyAcEwI1RRbVWaZAF18GzY10Sp4cBhVAf05moOJYeVDIAC/IYMRSndWx w+hH9yJEXrfPcgrcU3ZtNOJOr1Is1BhMh3a4PGj49atpZ30dV3RCrUuUFlY6vqUCJw3B QJHdkxH4PmrwowliQdETqLAeswAebIjRxK4qZ2riV8NhKtOLWMILc/BnXO95W78b146n uyL/UpjkJGRo2s9EXm7ghvEqtEj1MLa8cqM5UDRGIk3w97f2YWVsbHfsB4Byhw9jRuyY 180m74t4N1mnxnB/QkQRjnobydsFZbrD6d9E3aKGi+a3DD6R9vUxSrRLUrezvcYHpe29 2jyg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:subject:from:to:references:message-id:date :user-agent:mime-version:in-reply-to:content-language :content-transfer-encoding; bh=rkzgd+L2wfEGxjm6CACGA8betegSZ97L36xQXoc9kXI=; b=K8OB/dmNCSLdjw7vB7WZt4DWo/EKQn52M5/+gV0aSxJlRp0UKcttyJ5tPVTSxr4VWP Vd5WOWqBrxeBSj8Zo8wtEq5dX2oJZAV82pymGiDVW/gkuqnErNxbAqWKkSdDmIvehEqG ecE1ApvAr6yVcbt4BABHFecGqhffnL03P3UABNwXPZFKNK1zQPo0n9P5FPUG6js/OYmZ fRsjLxKJUux4EyGbk1+PUM4UvZ6UqESjzVoXyOdn6fWUUrQX38cBIOkHWABdJ69Y/3MK Ua63/mzcbA+y1XkJeuzhPo2iokvi145f9TdE4OMdjeCQpnVc6Cbo46eN2ZS8Tme4TutK eDyQ== X-Gm-Message-State: AOAM533bDN8N+fK+IIaobklRFxGqxyD8Di/IXFf9GrBEN60yFw+axtS+ yoxp9a15vkpfjzfZdUCP2t3zEgW7KHy1VA== X-Google-Smtp-Source: ABdhPJwvvE80u1zZQk9oMNAEPSNdzRp9ZnhRRiw6PFwKi2j2eYZBD63WNLhAO7RPRGRjWyX5mIJKaw== X-Received: by 2002:a05:6402:1597:: with SMTP id c23mr20546952edv.212.1607860309431; Sun, 13 Dec 2020 03:51:49 -0800 (PST) Original-Received: from [192.168.178.20] ([109.90.125.150]) by smtp.gmail.com with ESMTPSA id dx7sm11145986ejb.120.2020.12.13.03.51.48 (version=TLS1_3 cipher=TLS_AES_128_GCM_SHA256 bits=128/128); Sun, 13 Dec 2020 03:51:48 -0800 (PST) In-Reply-To: <2d6f348c-1e43-a5c4-1998-baa04b91bf8c@gmail.com> Content-Language: en-US Received-SPF: pass client-ip=2a00:1450:4864:20::52c; envelope-from=taylan.kammer@gmail.com; helo=mail-ed1-x52c.google.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, NICE_REPLY_A=-0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-user-bounces+guile-user=m.gmane-mx.org@gnu.org Original-Sender: "guile-user" Xref: news.gmane.io gmane.lisp.guile.user:17076 Archived-At: On 13.12.2020 08:06, Taylan Kammer wrote: > >   (define find-in-tree* >      (λ (peg-tree filter-proc) > >        (define traverse >          (λ (subtree rest) >            (simple-format (current-output-port) >                           "working with subtree ~a\n" >                           subtree) >            (cond >             [(null? subtree) >              (if (null? rest) >                  '() >                  (traverse (car rest) (cdr rest))] >             [(pair? (first subtree)) >              (traverse (first subtree) >                        (cons (cdr subtree) rest))] >             [(filter-proc (first subtree)) >              (cons subtree >                    (traverse (car rest) (cdr rest)))] >             [else >              (traverse (cdr subtree) rest)]))) > >        (traverse peg-tree '()))) Correction, for third branch of the cond that didn't check if rest is null: (define find-in-tree* (λ (peg-tree filter-proc) (define traverse (λ (subtree rest) (simple-format (current-output-port) "working with subtree ~a\n" subtree) (cond [(null? subtree) (if (null? rest) '() (traverse (car rest) (cdr rest)))] [(pair? (first subtree)) (traverse (first subtree) (cons (cdr subtree) rest))] [(filter-proc (first subtree)) (cons subtree (if (null? rest) '() (traverse (car rest) (cdr rest))))] [else (traverse (cdr subtree) rest)]))) (traverse peg-tree '()))) Taylan