comparison tests/strcspn.ur @ 1793:446e73902b09
Fix JavaScript implementation of strcspn()
| author |
Adam Chlipala <adam@chlipala.net> |
| date |
Tue, 24 Jul 2012 19:49:50 -0400 |
| parents |
|
| children |
|
comparison
equal
deleted
inserted
replaced
| |
1 fun main () : transaction page = |
| |
2 s <- source ""; |
| |
3 return <xml><body> |
| |
4 <ctextbox source={s}/> |
| |
5 <button onclick={fn _ => v <- get s; alert (show (strcspn v "0123456789"))}/> |
| |
6 </body></xml> |
