fork download
copy 
  1. @Mathematica
  2.  
  3. stringSlide[str_,n_]:=Module[{rule1,rule2},
  4.  
  5. 	rule1=str//
  6. 		Characters//
  7. 		Drop[#,{n}]&//
  8. 		Map[#->"*"&,#]&;
  9.  
  10. 	rule2=str//
  11. 		Characters//
  12. 		{#[[n]]->"*"}&;
  13.  
  14. 	{rule1,rule2}//
  15. 		Map[StringReplace[str,#]&,#]&//
  16. 		Riffle[#,"\n"]&//
  17. 		StringJoin
  18. ];
  19.  
  20.  
  21. In[1] := stringSlide["abc", 2]
  22. Out[1] = *b*
  23.          a*c
  24.  
Not running #stdin #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/gDkzl4
language:
Text (text 6.10)
created:
5 years ago
visibility:
public

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!