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

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-08-11 18:05:26 -07:00
parent 4d5544505c
commit 4924dd0264
3073 changed files with 55820 additions and 4408 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Task/Substring-Top-and-tail/Maxima/substring-top-and-tail.maxima Normal file
View file

@ -0,0 +1,5 @@
load("stringproc")$
top(s) := substring(s, 2)$
tail(s) := substring(s, 1, slength(s))$
top_and_tail(s) := substring(s, 2, slength(s))$
map(lambda([f], f("xyzzy")), [top, tail, top_and_tail]);

4
Task/Substring-Top-and-tail/R/substring-top-and-tail.r Normal file
View file

@ -0,0 +1,4 @@
top_and_tail <- function(s, top=TRUE, tail=TRUE) substr(s, 1+top, nchar(s)-tail)
top_and_tail("xyzzy")
top_and_tail("xyzzy", top=FALSE)
top_and_tail("xyzzy", tail=FALSE)