File: longline.R

package info (click to toggle)
littler 0.3.22-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 848 kB
  • sloc: ansic: 586; sh: 132; makefile: 5
file content (16 lines) | stat: -rwxr-xr-x 375 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#!/usr/bin/env r
longline <- function(len){
	n <- floor(len/10)
	m = len %% 10
	if (m>0){
		x <- paste(rep(seq(0,9),n),collapse='')
		y <- paste(seq(0,m-1),collapse='')
		z <- paste(x,y,sep='')
	} else {
		z <- paste(rep(seq(0,9),n),collapse='')
	}
	z
}
cat("x<-\"", longline(1020), "\";",sep="");
cat("cat(x,\"\\n\"",")\n",sep="");
cat("cat(nchar(x),\"\\n\"",")\n",sep="");