blob: 6649508cedc38022a4f2ad93aa782b5cd1e14966 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
;;
;; immer: immutable data structures for C++
;; Copyright (C) 2016, 2017, 2018 Juan Pedro Bolivar Puente
;;
;; This software is distributed under the Boost Software License, Version 1.0.
;; See accompanying file LICENSE or copy at http://boost.org/LICENSE_1_0.txt
;;
;; include:intro/start
(use-modules (immer)
(rnrs base))
(let ((v1 (ivector 1 "hola" 3 'que #:tal)))
(assert (eq? (ivector-ref v1 3) 'que))
(let* ((v2 (ivector-set v1 3 'what))
(v2 (ivector-update v2 2 (lambda (x) (+ 1 x)))))
(assert (eq? (ivector-ref v1 2) 3))
(assert (eq? (ivector-ref v1 3) 'que))
(assert (eq? (ivector-ref v2 2) 4))
(assert (eq? (ivector-ref v2 3) 'what))
(let ((v3 (ivector-push v2 "hehe")))
(assert (eq? (ivector-length v3) 6))
(assert (eq? (ivector-ref v3 (- (ivector-length v3) 1)) "hehe")))))
(let ((v (apply ivector (iota 10))))
(assert (eq? (ivector-length v) 10))
(assert (eq? (ivector-length (ivector-drop v 3)) 7))
(assert (eq? (ivector-length (ivector-take v 3)) 3))
(assert (eq? (ivector-length (ivector-append v v)) 20)))
(let ((v1 (make-ivector 3))
(v2 (make-ivector 3 ":)")))
(assert (eq? (ivector-ref v1 2)
(vector-ref (make-vector 3) 2)))
(assert (eq? (ivector-ref v2 2) ":)")))
;; include:intro/end
;; Experiments
(let ((d (dummy)))
(dummy-foo d)
(dummy-bar d 42))
(gc)
(func1)
(func2)
(func3 (dummy) 12)
(foo-func1)
(gc)
|
