From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mail-oi1-x236.google.com (mail-oi1-x236.google.com [IPv6:2607:f8b0:4864:20::236]) by sourceware.org (Postfix) with ESMTPS id 21F673858C39 for ; Tue, 9 Apr 2024 10:52:48 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 21F673858C39 Authentication-Results: sourceware.org; dmarc=pass (p=none dis=none) header.from=gmail.com Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=gmail.com ARC-Filter: OpenARC Filter v1.0.0 sourceware.org 21F673858C39 Authentication-Results: server2.sourceware.org; arc=none smtp.remote-ip=2607:f8b0:4864:20::236 ARC-Seal: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1712659970; cv=none; b=gjdKkxot9APU/dKRvFykbiYIrQPO9QC/H74dPYGJ5WvziZWza61tbCQ6UbJx2UjDqpR2/Df/zMLuqyrJ1Ua6dS2wrXNTHj/IHUrSwEG6lt2qPmpB5HJbx11Bx3pwoZhkH7P14jUoFgY2UHTMHsdcl+Q8vqwMgPpkcZPi+HF/82U= ARC-Message-Signature: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1712659970; c=relaxed/simple; bh=aCWIxlaBN/kib2uwEBjiTWc9KNV++/or3/QTEnTa8sY=; h=DKIM-Signature:MIME-Version:From:Date:Message-ID:Subject:To; b=uxpARFTae6C5/6MaIZNaJy+xPQbWeFAO+k2u1R3YsHpc0rCQgFeOGvMVU3CnND6KbCAaOrZJ4WQe2eeSKqae2xv/8QVOb4kvOy/RFH0SmArHjP33Bu2GwclcJfOExM0eyLzj92UcBYb0OHqycSZ4AGlkuqc3PpEhLWrMhzQou0w= ARC-Authentication-Results: i=1; server2.sourceware.org Received: by mail-oi1-x236.google.com with SMTP id 5614622812f47-3c603f6eb37so57215b6e.1 for ; Tue, 09 Apr 2024 03:52:48 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20230601; t=1712659967; x=1713264767; darn=sourceware.org; h=to:subject:message-id:date:from:mime-version:from:to:cc:subject :date:message-id:reply-to; bh=MvUNoQ9q7+5+EY5mquOQbSCK5w+74FUUhc+lWmYn18o=; b=VpzA5Z8LVCfPXjFwgjNJk5u5Z+NsNrX8V8i8DjaffkoR5DYhum4aOPPP4jmrrR6Qy2 vVdpSRJh7yqlBV9CkAItgAs7Tm31Vw5kSfkqW5K6ocq1wE8tocbmDgX877nl9bn8fTxE WPul7w5OjjKwL3fJcXJ2KgHN7F5rxtqrqJSAr7JbBnxDZWL6HSZxJAxgadMZsDQo0PnR JU53crcpfhdff6MW9K0pRmTeALPyepoSokmqnagrjvowj5l8BWv/gULmk6aOqgN5teLK x67uqEKrhFTwOTWxiqdGZ8WtgJBZICh8xIR1JSxZgnff8YmXubt+eDThge6tRv4MTMwD b0pw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1712659967; x=1713264767; h=to:subject:message-id:date:from:mime-version:x-gm-message-state :from:to:cc:subject:date:message-id:reply-to; bh=MvUNoQ9q7+5+EY5mquOQbSCK5w+74FUUhc+lWmYn18o=; b=f+umDQ4XnPA1HxEnJSWuS1z1IuIjMXpCosU1hJmI29DO0a2uu6Dfa89vg2ZAXvb8By CQLYveQxf142Su/8WVCedKiTQYRVta4zUs5f19J5qJctF90tcPt6r6Wnx6jzF2+5MqvQ g5WiuvZgYvEcjQ+YEi1Ar/7yqLFdxt163zRWqmbDQsPuo7W4h9tAwuIIu0UGVBIgcKw0 LQwWY0koBrzh6HFTF7ZixRYqy2biJwkWWrzNW3AS2PiusN+Fhe+BTLhXR7k+QotANTur JW1jzvgSt27FKhKkQ79hjWlSWUNxQdfV8uHIRDmLkRcfoBNhIMtQjwwukM32ith7uXNO WeqQ== X-Gm-Message-State: AOJu0Yzm1tBuRNml6U0Z4xrMsBN+WQoMIW7xiY9f7/kjOC/b0sO/Jp9H GWdOtvDQ/jEfFTe/4eAaT4cp2YvZbXp80mvGk3SZh0QtJXAfc1/1Z4U+ezvC+/f0lmsvahGL86o BcsNv/mkIak5vkW/+XWq/V2vBaG8VTVTgRbU= X-Google-Smtp-Source: AGHT+IG5oBjV/GOLwdOGntbT291mPtn1YTi/SCNdyuYDYp0x8jHMIs17WuPU4xzx3VqV942ei9DF146u6XUYTXHJyrc= X-Received: by 2002:a05:6808:6344:b0:3c5:f7e0:9843 with SMTP id eb4-20020a056808634400b003c5f7e09843mr4118162oib.37.1712659965688; Tue, 09 Apr 2024 03:52:45 -0700 (PDT) MIME-Version: 1.0 From: Damien Mattei Date: Tue, 9 Apr 2024 12:52:34 +0200 Message-ID: Subject: Scheme+ v8.1 To: kawa mailing list Content-Type: multipart/alternative; boundary="000000000000e049f70615a7b8d8" X-Spam-Status: No, score=0.1 required=5.0 tests=BAYES_00,DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF,FREEMAIL_FROM,HTML_MESSAGE,KAM_NUMSUBJECT,RCVD_IN_DNSWL_NONE,SPF_HELO_NONE,SPF_PASS,TXREP autolearn=no autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org List-Id: --000000000000e049f70615a7b8d8 Content-Type: text/plain; charset="UTF-8" hello, i released a minor update of Scheme+: https://github.com/damien-mattei/Scheme-PLUS-for-Kawa mainly add a nex 'if then else' syntax compatible with scheme examples: ;; > (if #f else 3) ;; 3 ;; > (if #t else 3) ;; > (if #t 2 else 3) ;; 2 ;; > (if #t then 2 else 3) ;; 2 ;; > (if #f then 2 else 3) ;; 3 ;; > (if #f then 1 2 else 3 4) ;; 4 ;; > (if #t then 1 2 else 3 4) ;; 2 ;; > (if #t 1 2 3) ;; 3 ;; > (if #t then 1 2 else 3 4 then 5) ;; . . SRFI-105.rkt:181:17: if: then after else near : '(then 5) ;; > (if #t then 1 2 else 3 4 else 5) ;; . . SRFI-105.rkt:181:17: if: 2 else inside near: '(else 5) ;; > (if #t else 1 2 then 3 4) ;; . . SRFI-105.rkt:181:17: if: then after else near : '(then 3 4) ;; > (if #t then 1 2 then 3 4) ;; . . SRFI-105.rkt:181:17: if: 2 then inside near: '(then 3 4) (define (funct-unify-minterms-set-of-sets-rec-tail sos acc) ;; with accumulator (if (singleton-set? sos) then ;; singleton (reverse acc) else ;; at least 2 elements in set of sets {mt-set1 <+ (car sos)} ;; minterm set 1 {mt-set2 <+ (cadr sos)} ;; minterm set 2 {mt-set2-to-mt-setn <+ (cdr sos)} ;; minterm sets 2 to n {weight-mt-set1 <+ (floor-bin-minterm-weight (car mt-set1))} ;; in a set all minterms have same weight {weight-mt-set2 <+ (floor-bin-minterm-weight (car mt-set2))} {delta-weight <+ {weight-mt-set2 - weight-mt-set1}} (if {delta-weight = 1} then ;; if minterms set are neighbours {unified-mt-set1-and-mt-set2 <+ (funct-unify-minterms-set-1-unit-future mt-set1 mt-set2)} (if (null? unified-mt-set1-and-mt-set2) (funct-unify-minterms-set-of-sets-rec-tail mt-set2-to-mt-setn acc) ;; the result will be the continuation with sets from 2 to n (funct-unify-minterms-set-of-sets-rec-tail mt-set2-to-mt-setn (insert unified-mt-set1-and-mt-set2 acc))) ;; end & else (funct-unify-minterms-set-of-sets-rec-tail mt-set2-to-mt-setn acc)))) ;; continue with sets from 2 to n --000000000000e049f70615a7b8d8--