Data commit
This commit is contained in:
parent
7387c8f97b
commit
cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
1
Task/Substring/Tailspin/substring-1.tailspin
Normal file
1
Task/Substring/Tailspin/substring-1.tailspin
Normal file
|
|
@ -0,0 +1 @@
|
|||
[$s...]
|
||||
1
Task/Substring/Tailspin/substring-2.tailspin
Normal file
1
Task/Substring/Tailspin/substring-2.tailspin
Normal file
|
|
@ -0,0 +1 @@
|
|||
'$a...;'
|
||||
35
Task/Substring/Tailspin/substring-3.tailspin
Normal file
35
Task/Substring/Tailspin/substring-3.tailspin
Normal file
|
|
@ -0,0 +1,35 @@
|
|||
composer substr&{from:, length:}
|
||||
(<'.{$:$from-1;}'>) <'.{$length;}'> (<'.*'>)
|
||||
end substr
|
||||
|
||||
'abcdef' -> substr&{from:3, length:2} -> !OUT::write
|
||||
'
|
||||
' -> !OUT::write
|
||||
|
||||
composer substrFrom&{from:}
|
||||
(<'.{$:$from-1;}'>) <'.*'>
|
||||
end substrFrom
|
||||
|
||||
'abcdef' -> substrFrom&{from:4} -> !OUT::write
|
||||
'
|
||||
' -> !OUT::write
|
||||
|
||||
composer chopLast
|
||||
<'(.(?=.))*'> (<'.'>)
|
||||
end chopLast
|
||||
|
||||
'abcdef' -> chopLast -> !OUT::write
|
||||
'
|
||||
' -> !OUT::write
|
||||
|
||||
composer substrStarting&{prefix:, length:}
|
||||
(<~='$prefix;'>) <'.{$length;}'> (<'.*'>)
|
||||
end substrStarting
|
||||
|
||||
'abcdef' -> substrStarting&{prefix: 'b', length: 2} -> !OUT::write
|
||||
'
|
||||
' -> !OUT::write
|
||||
|
||||
'abcdef' -> substrStarting&{prefix: 'cd', length: 3} -> !OUT::write
|
||||
'
|
||||
' -> !OUT::write
|
||||
Loading…
Add table
Add a link
Reference in a new issue