on master help sign in
scag
commit60cc51bf1a2e969d425f5bbe14567e298a304641 authoriko <mail@iko.soy> dateFri 23 Aug 2024, 15:11 (2 years ago) parentc17ddfc
1 file changed+13
nock/src/jets.rs+13
nock/src/jets.rs+13
@@ -45,6 +45,7 @@ pub fn generate_jets() -> Jets {
4545 (266278769253331237088430651317345081031, REAR),
4646 (146282575960509029931248602154898675358, REEL),
4747 (218516926094890651045754335042357820192, ROLL),
48+ (89970054366691388746503743197917964564, SCAG),
4849 ])
4950}
5051
@@ -354,3 +355,15 @@ static ROLL: Jet = |ctx, n| {
354355 |acc, next| slam(ctx, gate.clone(), cell(next.clone(), acc)),
355356 )
356357};
358+
359+static SCAG: Jet = |_ctx, n| {
360+ let (a, b) = n.as_cell().unwrap();
361+
362+ Noun::list_refs(
363+ b.list_iter()
364+ .take(a.as_u32().unwrap() as usize)
365+ .collect::<Vec<_>>()
366+ .iter()
367+ .map(|x| x.clone()),
368+ )
369+};