RosettaCodeData/Task/Range-extraction/Ursala/range-extraction.ursala

11 lines
231 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
#import std
#import int
x = <0,1,2,4,6,7,8,11,12,14,15,16,17,18,19,20,21,22,23,24,25,27,28,29,30,31,32,33,35,36,37,38,39>
f = mat`,+ ==?(~&l,^|T/~& :/`-)*bhPS+ %zP~~hzX*titZBPiNCSiNCQSL+ rlc ^|E/~& predecessor
#show+
t = <f x>