fork download
copy 
  1. calcItti <- function( a, b ){
  2. 	if( length( a ) > 0 ){
  3. 		if( is.element( a[1], b ) ){
  4. 			itti <<- itti + 1
  5. 			b <- b[ -( ( which( b == a[1] ) )[1] ) ]
  6. 		}
  7. 		a <- a[-1]
  8. 		Recall( a, b )
  9. 	}
  10. }
  11.  
  12. func <- function( a, b ){
  13. 	itti <<- 0
  14. 	calcItti( a, b )
  15. 	return( itti == 2 )
  16. }
  17.  
  18. cat( "[1,2,3], [5,6,7] -> " )
  19. func( c( 1,2,3 ), c( 5,6,7 ) ) # FALSE
  20.  
  21. cat( "[1,1,1], [1,1,2] -> " )
  22. func( c( 1,1,1 ), c( 1,1,2 ) ) # TRUE
  23.  
  24. cat( "[1,1,2], [2,2,1] -> " )
  25. func( c( 1,1,2 ), c( 2,2,1 ) ) # TRUE
  26.  
  27. cat( "[9,8,9], [8,6,4] -> " )
  28. func( c( 9,8,9 ), c( 8,6,4 ) ) # FALSE
  29.  
  30. cat( "[9,7,2], [2,2,9] -> " )
  31. func( c( 9,7,2 ), c( 2,2,9 ) ) # TRUE
Success #stdin #stdout 0.45s 22824KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1,2,3], [5,6,7] -> [1] FALSE
[1,1,1], [1,1,2] -> [1] TRUE
[1,1,2], [2,2,1] -> [1] TRUE
[9,8,9], [8,6,4] -> [1] FALSE
[9,7,2], [2,2,9] -> [1] TRUE
https://ideone.com/3BECgn
language:
R (R 3.5.2)
created:
10 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!