seqlings 3.0.7

Interactive exercises for learning Seq, a stack-based programming language
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

# Exercise: Getting Results from Strands
#
# Strands don't directly return values. Use channels!
#
# Pattern:
#   1. Create a channel
#   2. Spawn strand with channel access
#   3. Strand sends result to channel
#   4. Main receives from channel
#
# Your task: Spawn a strand that computes 10 * 5 and sends the result.
# When done, delete the marker line below.

# I AM NOT DONE

: compute-in-strand ( -- Int )
    chan.make
    # Your code here:
    # 1. dup the channel
    # 2. spawn a strand that computes 10 * 5 and sends it
    # 3. drop the strand ID
    # 4. receive from channel
    drop 0
;

: test-return-value ( -- )
    compute-in-strand
    # Do not edit below this line
    50 test.assert-eq
;