aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

YAPC::EU 2018 Glasgow Update!

Browse source
This commit is contained in:
Ingy döt Net 2018-08-17 15:15:24 +01:00
parent 22f33d4004
commit 4e2d22a71d
1170 changed files with 15042 additions and 3047 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Substring-Top-and-tail/Factor/substring-top-and-tail.factor
View file

@ -1 +1,3 @@
"Rosetta code" [ rest . ] [ but-last . ] [ rest but-last . ] tri
USING: io kernel sequences ;
"Rosetta code" [ rest ] [ but-last ] [ rest but-last ] tri
[ print ] tri@

8
Task/Substring-Top-and-tail/K/substring-top-and-tail-1.k Normal file
View file

@ -0,0 +1,8 @@
s: "1234567890"
"1234567890"
s _di 0 /Delete 1st character
"234567890"
s _di -1+#s /Delete last character
"123456789"
(s _di -1+#s) _di 0 /String with both 1st and last character removed
"23456789"

8
Task/Substring-Top-and-tail/K/substring-top-and-tail-2.k Normal file
View file

@ -0,0 +1,8 @@
s: "1234567890"
"1234567890"
1 _ s /Delete 1st character
"234567890"
-1 _ s /Delete last character
"123456789"
1 - -1 _ s /Delete 1st and last character
"23456789"