Guest User

Untitled

a guest
Jan 23rd, 2019
83
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.23 KB | None | 0 0
  1. ClearAll[noway];
  2. noway[f_][x_ /; False] := f[x];
  3.  
  4. expr = noway[Print[{##}]&][x]
  5. (*noway[Print[{##1}]&][x]*)
  6.  
  7. expr /. x_ /; Head[Head[x]] === foo :> bar
  8.  
  9. {##1}
  10.  
  11. Head[Head[expr]]
  12. Head[Head[expr]] === foo
  13. (*noway*)
  14. (*False*)
Add Comment
Please, Sign In to add comment