block structer in Scheme

Article View: fj.lang.lisp

Article #229

#229

From: Mikio Nakajima
Date: Fri, 03 Jan 1997 00:00

22 lines
1832 bytes

  ������В��ϒ������璤ǒ�����

  SICP ��ǒ�ϒ�㒤���В��

        (define (length x)
          (define (length-iter a count)
            (if (null? a)
                count
              (length-iter (cdr a) (+ 1 count)) ))
          (length-iter x 0) )

��Ȓ�������蒤���ʒ����쒻Ғ�˒�ʒ�Ò�������������ؒ����������˒�Ȓ�Ò�ƒ�ޒ�������������󒥿���
��ג�꒥������Β�������ǒ�ϒ����ŒŪ�����������ג�⒤Β����������ؒ�� (�����Β�㒤ǒ��
length-iter) ���쒡��ɾ��������ƒ�ؒ����꒵������ʒ����Ȓ�������ʒ����Β�ǒ����뒹���⒥����
��Ȓ�ʒ�󒤸��㒤ʒ�������Ȓ����Ē�ޒ�钤ʒ�������Ȓ���̯��˒����˒�ʒ�꒤ޒ�����

������ђ����뒤���쒤В����ޒ����풤Β�蒤���ʒ�ޒ����Ò����������Ò�ƒ��Ψ��������ʒ����蒤�
��˒�ߒ�ג����쒤ƒ����뒤�ǒ����蒤͒�������Ò�Ȓ��

-- 
����璴���� <gy2m-nkjm@asahi-net.or.jp>

Technical Details

Message-ID: <5aih3n$2u98@lightning.asahi-net.or.jp>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 1421c0,bf13031cc8c889b7,start
X-Google-Attributes: gid1421c0,public
From: Mikio Nakajima <gy2m-nkjm@asahi-net.or.jp>
Subject: block structer in Scheme
Date: 1997/01/03
Message-ID: <5aih3n$2u98@lightning.asahi-net.or.jp>
X-Deja-AN: 207538620
organization: 0
newsgroups: fj.lang.lisp