Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ClearAll[noway];
- noway[f_][x_ /; False] := f[x];
- expr = noway[Print[{##}]&][x]
- (*noway[Print[{##1}]&][x]*)
- expr /. x_ /; Head[Head[x]] === foo :> bar
- {##1}
- Head[Head[expr]]
- Head[Head[expr]] === foo
- (*noway*)
- (*False*)
Add Comment
Please, Sign In to add comment