FreeSource - ValentynSolomko/Alterator

2008-06-27 19:24:30

�� /Valentyn Solomko / Alterator �� 2008-06-27 19:24:30 � 2008-06-27 19:30:11

��:

guile> (eqv? '(«a» . “b”) '(«a” . “b”))
guile> (equal? '(«a» . “b”) '(«a” . “b”))
guile> (eqv? -0 0)
guile> (eqv? -0/1 0/1)

> (eqv? '(«a» . “b”) '(«a” . “b”))

> (equal? '(«a” . “b”) '(«a” . “b”))

> (eqv? -0 0)

> (eqv? -0/1 0/1)

2008-06-27 19:05:32

�� /Valentyn Solomko / Alterator �� 2008-06-27 19:05:32 � 2008-06-27 19:24:30

��:

�� #1 `(let ...)`

�� #1 `eqv?`

guile16:
guile> (eqv? 42 42)
#t
guile> (eqv? “on” “on”)
guile> (eqv? -0.0 0.0)
#t
guile> (equal? -0.0 0.0)
#t
mzscheme-2:

> (eqv? 42 42)

> (eqv? “on” “on”)

> (eqv? -0.0 0.0)

> (equal? -0.0 0.0)

��:

�� #1

�� #2

(define rows-default_on_off '(«default» “on” “off”))
(define (list-position lst itm)

(define (find-index lst idx)

(if (null? lst)

#f
(if (string=? (car lst) itm)

idx
(find-index (cdr lst) (+ idx 1))

(find-index lst 0)

guile> (list-position rows-default_on_off “on”)
1
�� (�� ):
(define (list-position lst itm)

(let loop

(

(lst lst)
(idx 0)

(if (null? lst)

#f
(if (eqv? (car lst) itm)

idx
(loop (cdr lst) (+ idx 1))

guile> (list-position rows-default_on_off “on”)

2008-06-27 19:04:30

�� /Valentyn Solomko / Alterator �� 2008-06-27 19:04:30 � 2008-06-27 19:05:32

��:

�� #1

�� #2

��:

#1

#2

2008-06-27 18:12:59

�� /Valentyn Solomko / Alterator �� 2008-06-27 18:12:59 � 2008-06-27 19:04:30

��:

�� guile16

#1

#2

(define rows-default_on_off '(«default» “on” “off”))
(define (list-position lst itm)

(define (find-index lst idx)

(if (null? lst)

#f
(if (string=? (car lst) itm)

idx
(find-index (cdr lst) (+ idx 1))

(find-index lst 0)

guile> (list-position rows-default_on_off “on”)
1
�� (�� ):
(define (list-position lst itm)

(let loop

(

(lst lst)
(idx 0)

(if (null? lst)

#f
(if (eqv? (car lst) itm)

idx
(loop (cdr lst) (+ idx 1))

guile> (list-position rows-default_on_off “on”)
#f

��:

�� guile16

2008-06-27 18:12:22

�� /Valentyn Solomko / Alterator �� 2008-06-27 18:12:22 � 2008-06-27 18:12:59

��:

��

�� guile16

��:

�� guile16

��

2008-06-27 18:12:06

�� /Valentyn Solomko / Alterator �� 2008-06-27 18:12:06 � 2008-06-27 18:12:22

��:

�� 

�� guile16

�� #1 (let ...)

�� #1 eqv?

2008-06-27 18:04:55

�� /Valentyn Solomko / Alterator �� 2008-06-27 18:04:55 � 2008-06-27 18:12:06

��:

��

2008-06-27 18:02:34

�� /Valentyn Solomko / Alterator �� 2008-06-27 18:02:34 � 2008-06-27 18:04:55

��:

�� guile16

rpm -qi guile16–1.6.8-alt1.1
Name : guile16 Relocations: (not relocateable)
Version : 1.6.8 Vendor: ALT Linux Team
Release : alt1.1 Build Date: �� 17 �� 2006 21:38:39
Install date: �� 10 �� 2008 14:07:50 Build Host: bee5.hasher.altlinux.org
Group : Development / Other? Source RPM: guile16–1.6.8-alt1.1.src.rpm
Size : 2118916 License: GPL
Packager : Alexey Voinov <voins@altlinux.ru>
URL : http://www.gnu.org/software/guile/
Summary : A GNU implementation of Scheme for application extensibility.
Description :
GUILE (GNU's Ubiquitous Intelligent Language for Extension) is a library
implementation of the Scheme programming language, written in C. GUILE
provides a machine-independent execution platform that can be linked in
as a library during the building of extensible programs.
Install the guile package if you'd like to add extensibility to programs
that you are developing. You'll also need to install the guile-devel
package.

��:

== guile16 =

2008-06-27 17:59:59

�� /Valentyn Solomko / Alterator �� 2008-06-27 17:59:59 � 2008-06-27 18:02:34

��:

�� :
guile> (rows->buff rows)
(#(«default» #t #t “default”) #(«192.168.1.238” #f “default” “1024x768”) #(«192.168.1.252” “default” #f “default”))
�� :
guile> (rows->buff rows)
Backtrace:
In standard input:
209: 0* [rows->buff (#(# # # #) #(# # # #) #(# # # #))]
187: 1 [map #<procedure #f (old-row)> (#(# # # #) #(# # # #) #(# # # #))]
In unknown file:

?: 2* [#<procedure #f (old-row)> #(# # # #)]

In standard input:
189: 3* (let # new-row # old-row) new-row
194: 4 new-row (lambda (old-cell) (car old-cell old-row) new-row)
standard input:194:33: In expression ((array-map! new-row # ...) new-row):
standard input:194:33: Wrong type to apply: #<unspecified>
ABORT: (misc-error)

FreeSource - ValentynSolomko/Alterator

2008-06-27 19:24:30

2008-06-27 19:05:32

���� #1 (let ...)

��������� #1 eqv?

���� #1

���� #2

2008-06-27 19:04:30

���� #1

���� #2

#1

#2

2008-06-27 18:12:59

���������� ����� � guile16

#1

#2

���������� ���� � guile16

2008-06-27 18:12:22

�������������� �������

���������� ���� � guile16

���������� ���� � guile16

�������������� �������

2008-06-27 18:12:06

2008-06-27 18:04:55

�������������� �������

2008-06-27 18:02:34

���������� ���� � guile16

2008-06-27 17:59:59

�� #1 `(let ...)`

�� #1 `eqv?`

�� #1

�� #2

�� #1

�� #2

�� guile16

�� guile16

��

�� guile16

�� guile16

��

��

�� guile16