git.iko.soy/wock
on master help sign in
skip
1f374ddiko
nock/src/jets.rs+13
compare with master
unifiedsplit
@@ -48,6 +48,7 @@ pub fn generate_jets() -> Jets {
48 (89970054366691388746503743197917964564, SCAG),
48 (89970054366691388746503743197917964564, SCAG),
49 (68845187332605602565057027619381114427, SKID),
49 (68845187332605602565057027619381114427, SKID),
50 (51010231444191054729255601633316498529, SKIM),
50 (51010231444191054729255601633316498529, SKIM),
51+ (144878877047435484372311285666595397017, SKIP),
51 ])
52 ])
52}
53}
53
54
@@ -394,3 +395,15 @@ static SKIM: Jet = |ctx, n| {
394 .cloned(),
395 .cloned(),
395 )
396 )
396};
397};
398+
399+static SKIP: Jet = |ctx, n| {
400+ let (list, gate) = n.as_cell().unwrap();
401+
402+ Noun::list_refs(
403+ list.list_iter()
404+ .filter(|n| slam(ctx, gate.clone(), n.clone()).is_n())
405+ .collect::<Vec<_>>()
406+ .iter()
407+ .cloned(),
408+ )
409+};