forked from objectionary/eo
-
Notifications
You must be signed in to change notification settings - Fork 0
/
EOseq.java
83 lines (78 loc) 路 2.52 KB
/
EOseq.java
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
/*
* The MIT License (MIT)
*
* Copyright (c) 2016-2024 Objectionary.com
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files (the "Software"), to deal
* in the Software without restriction, including without limitation the rights
* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
* copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included
* in all copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT. IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
* SOFTWARE.
*/
/*
* @checkstyle PackageNameCheck (4 lines)
*/
package EOorg.EOeolang;
import org.eolang.AtFree;
import org.eolang.Atom;
import org.eolang.Data;
import org.eolang.Dataized;
import org.eolang.PhConst;
import org.eolang.PhDefault;
import org.eolang.PhWith;
import org.eolang.Phi;
import org.eolang.Versionized;
import org.eolang.XmirObject;
/**
* SEQ.
* @since 1.0
* @checkstyle TypeNameCheck (5 lines)
*/
@Versionized
@XmirObject(oname = "seq")
public final class EOseq extends PhDefault implements Atom {
/**
* Ctor.
* @param sigma Sigma
*/
public EOseq(final Phi sigma) {
super(sigma);
this.add("steps", new AtFree());
}
@Override
public Phi lambda() {
final Phi args = new PhConst(this.attr("steps").get());
final Long length = new Dataized(
args.attr("length").get()
).take(Long.class);
for (long idx = 0; idx < length - 1; ++idx) {
new Dataized(
new PhWith(
args.attr("at").get().copy(),
0, new Data.ToPhi(idx)
)
).take();
}
final Phi ret;
if (length > 0) {
final Phi last = args.attr("at").get().copy();
last.attr(0).put(new Data.ToPhi(length - 1));
ret = last;
} else {
ret = new Data.ToPhi(false);
}
return ret;
}
}