3v4l.org

run code in 150+ php & hhvm versions
Bugs & Features
<?php function find_words($in) { // stateful stream functions $len = strlen($in); if ($len === 0) { return array(); // nothing to lex } $pos = 0; $char = $in[0]; $peek = function() use ($in, &$pos, $len) { if ($pos+1 >= $len) { return null; } return $in[$pos+1]; }; $next = function() use ($peek, &$pos, &$char) { $char = $peek(); $pos++; return $char !== null; }; // stateless helper functions $upper = function ($c) { return 'A' <= $c && $c <= 'Z'; }; $lower = function ($c) { return 'a' <= $c && $c <= 'z'; }; $alpha = function ($c) use ($upper, $lower) { return $upper($c) || $lower($c); }; $num = function ($c) { return '0' <= $c && $c <= '9'; }; $alpha_num = function ($c) use ($alpha, $num) { return $alpha($c) || $num($c); }; // lexer states do action and return next lexer state $out = array(); $find_word = null; // cyclic dependency, declare first and pass by reference to dependents // extracts a fully uppercase word $upr_word = function() use (&$out, &$char, $next, $peek, $upper, $lower, &$find_word) { $word = $char; while ($next() && $upper($char)) { if ($lower($peek())) { // start of capitalized word (e.g. FOOBar at B) break; } $word .= $char; } $out[] = $word; return $find_word; }; // extracts a capitalized or fully lowercase word $std_word = function() use (&$out, &$char, $next, $lower, &$find_word) { $word = $char; while ($next() && $lower($char)) { $word .= $char; } $out[] = $word; return $find_word; }; // extracts a number $num_word = function() use (&$out, &$char, $next, $num, &$find_word) { $word = $char; while ($next() && $num($char)) { $word .= $char; } $out[] = $word; return $find_word; }; // consumes non-alphanumeric characters and determines the next state $find_word = function () use (&$char, $alpha_num, $upper, $lower, $next, $peek, $std_word, $upr_word, $num_word) { // consume all non-alphanumeric characters while (!$alpha_num($char)) { if (!$next()) { return null; // nothing left } } if ($upper($char)) { if ($upper($peek())) { // uppercase word return $upr_word; } return $std_word; // capitalized word } if ($lower($char)) { return $std_word; // lowercase word } return $num_word; // number }; // churn through states $state = $find_word; while ($state !== null) { $state = $state(); } return $out; } print_r(array_map(function ($in) { return array( 'in' => $in, 'out' => find_words($in), ); }, array( 'FooBar123', 'FooBAR123', 'FOOBar123', 'foo_bar_123_Baz', 'FOO_bar_123BAZ', 'FOO_Bar_123baz', 'foo_BAR_123_baz', 'foo_Bar_123_Baz', 'Foo_bar_123_BAZ', )));
based on i4JGc
Output for 5.3.0 - 5.6.28, hhvm-3.10.0 - 3.12.0, 7.0.0 - 7.1.0
Array ( [0] => Array ( [in] => FooBar123 [out] => Array ( [0] => Foo [1] => Bar [2] => 123 ) ) [1] => Array ( [in] => FooBAR123 [out] => Array ( [0] => Foo [1] => BAR [2] => 123 ) ) [2] => Array ( [in] => FOOBar123 [out] => Array ( [0] => FOO [1] => Bar [2] => 123 ) ) [3] => Array ( [in] => foo_bar_123_Baz [out] => Array ( [0] => foo [1] => bar [2] => 123 [3] => Baz ) ) [4] => Array ( [in] => FOO_bar_123BAZ [out] => Array ( [0] => FOO [1] => bar [2] => 123 [3] => BAZ ) ) [5] => Array ( [in] => FOO_Bar_123baz [out] => Array ( [0] => FOO [1] => Bar [2] => 123 [3] => baz ) ) [6] => Array ( [in] => foo_BAR_123_baz [out] => Array ( [0] => foo [1] => BAR [2] => 123 [3] => baz ) ) [7] => Array ( [in] => foo_Bar_123_Baz [out] => Array ( [0] => foo [1] => Bar [2] => 123 [3] => Baz ) ) [8] => Array ( [in] => Foo_bar_123_BAZ [out] => Array ( [0] => Foo [1] => bar [2] => 123 [3] => BAZ ) ) )
Output for 4.4.2 - 4.4.9, 5.1.0 - 5.2.17
Parse error: syntax error, unexpected T_FUNCTION in /in/ICqS2 on line 11
Process exited with code 255.
Output for 4.3.0 - 4.3.1, 4.3.5 - 4.4.1, 5.0.0 - 5.0.5
Parse error: parse error, unexpected T_FUNCTION in /in/ICqS2 on line 11
Process exited with code 255.
Output for 4.3.2 - 4.3.4
Parse error: parse error in /in/ICqS2 on line 11
Process exited with code 255.