We all know that if you google the word "google" it will break the internet.
Your task is to create a function that accepts one string and returns its length, in the fewest possible Unicode characters.
However, if the given string is google (lowercase), it will cause an error.
For example, g('bing') will return 4 but g('google') will cause an error.
Please provide an example of usage, and the error if possible.
Because the division by zero is overused in the already existing answers, I tried to come up with something else (sacrificing 3 bytes):
<?=strlen($x=$argv[1])+log($x!="google");
It's not a function (the task explicitly asks to write a function) but it can be invoked from the command line in a functional manner:
$ echo '<?=strlen($x=$argv[1])+log($x!="google");' | php -- bing
4
$ echo '<?=strlen($x=$argv[1])+log($x!="google");' | php -- google
-INF
It doesn't produce an error when the argument is google but it doesn't display the length of the string google either. However it displays -INF (i.e. minus infinity) and this value can be considered an error for a function that returns a length (which, by definition, is a count, i.e. a non-negative number).
<?=strlen($x=$argv[1])/($x!="google");
It can be invoked in the same way as above. When the argument is google it displays a PHP warning.
(defn g[s](if(= s"google")(g)(count s)))
Attempts to call itself with zero arguments for the input "google".
> (g "bing")
4
> (g "google")
clojure.lang.ArityException: Wrong number of args (0) passed to: sandbox10419$g
Short but lame:
print({assert($0 != "google");return $0.characters.count}(readLine()!))
Longer (75) but not lame:
print({{0/$0}($0.hash&-0x20f4f91ecf8d43)^$0.characters.count}(readLine()!))
The second one doesn't use any String literal. Works by subtracting the hash value of the input string by the "google" hashValue. Then it divides 0 by this value, resulting in a runtime error when it's 0 (0/0 = undef.) but in all other cases the result is 0 (0/x = 0). This result gets XOR'd by the character count in the String.
func g(s)return(s == "google")?throw():s.length; is a bit shorter.
\$\endgroup\$
g n|n/="google"=length n
"Unexhaustive patterns" if you pass it "google".
g(char*s){char*p=s;for(;*p=="google"[p-s];p++);for(;*p;p++);return p-s;}
output:
g("test") # 4
g("googles") # 7
g("google") # Segmentation fault (core dumped)
This solution is pretty straightforward, no tricky bit manipulation (but also no library functions): match the string google in the first loop, and if there are still characters left continue to the end of the string. Return the difference between the pointers as the length.
The bug: given the string "google" the first loop does not terminate, causing it to overrun and dereference memory locations until it segfaults.
It also has a bonus bug: if you feed it the string "google\0" it succeeds but returns the wrong length.
An improvement over Beta Decay's JS:
function f(g){g=="google"?g.s.s:alert(g.length)}
The original for reference:
function f(g){if(g=="google")throw 1;alert(g.length)}
J"google"!={L[}j{vvg_}jie
Code can be run at Anarchy Golf checker. Click 'use form' choose 'burlesque', copy/paste code into the form, and input goes under it. Run.
{L[} to qL[. q is a syntax prefix as a shortcut for Blocks that only contain one value.
\$\endgroup\$
XPath 2.0 (if you treat an XPath expression as a function with the context item as its argument):
Simple solution:
if (.='google') then error() else string-length()
If you treat returning an empty sequence as an error, then
string-length(.[.!='google'])
Thanks @manatwork!
[ "$1" != google ]&&echo ${#1}||0
It prints command not found if $1 is google.
[ "$1" != google ]&&echo ${#1}||0
\$\endgroup\$
Commented
Sep 30, 2015 at 9:16
g=(s)->(s if s!='google').length
To call:
g('bing') # returns 4
g('google') # TypeError: Cannot read property 'length' of undefined
The expression (s if s!='google') evaluates to undefined if the value of the argument s is google, otherwise it gives the argument itself. In the former case, JavaScript throws an error when attempting to access a property of undefined.
function g($x){$x.Length/($x-ne'google')}
$f={param([string]$s);if($s-eq'google'){throw $s};$s.Length}
Usage:
PS> & $f google
Throws an exception.
PS> & $f bing
Returns 4
Shortest I could come up with :(
ECMA6,30
g=(s)=>s=="google"?-1:s.length
Since a string length of -1 is an error I think this is a valid answer in Javascript (ECMA6).
I was initially inspired by the python trick of causing a division by zero mentioned near the top. However this does not work in Javascript because you can divide by zero and get "Infinity" without throwing an error so I looked into other options.
This works in Chrome you can copy this into the dev console and then run it by calling g("some string here"). I assume any other browser that has partial support for ECMA6 should be able to run it.
int l(char *s){int b=0,i=0;do{b=s[i]^"google"[i]?1:b;}while(s[i++]);return--i/b;}
Divides by 0 on "google". This is my first C++ golf, so any tips would be welcome.
^ is used like !=. b is equal to 1 when the string is not "google", 0 if it is. So i/s will result in i/0.
CREATE FUNCTION g(@p CHAR(9))RETURNS INT AS BEGIN RETURN IIF(@p='google',@p,LEN(@p))END
How to use :
SELECT dbo.g('gogle')
-- return 5
SELECT dbo.g('google')
--return Conversion failed when converting the varchar value 'google ' to data type int.
i:"g"=1-?v\]
i:"o"=1-?v\
i:"o"=1-?v\
i:"g"=1-?v\
i:"l"=1-?v\
i:"e"=1-?v\
i:01-=1-?v\
>i:0)?v~l n;
^ < <
Inputbox,s
MsgBox % a(s)
a(b)
{
if (b!="google")
return StrLen(b)
throw b
}
there is no proper stdin and stdout support in ahk so im using inputbox and msgbox, the concept is the same tho.
func g(s string)int{if s=="google"{panic(0)};return len(s)}
func g(s string)int{if s=="google"{panic("")};return len(s)} (60 bytes)
\$\endgroup\$
Commented
Oct 3, 2015 at 16:59
i:0(?\
?\ln;>~l6=
"\ "elgoog
!\{=?!\l ?
=< ;n6<
Here's a line-by-line breakdown:
i:0(?\
A standard ><> input loop, pushes the input string followed by -1.
?\ln;>~l6=
Starts at >. Discards the -1, checks the length is equal to 6. If it is, move to next line, otherwise gets the length, prints, and exits.
"\ "elgoog
Starts at \. Pushes 'google' in reverse. If the input string was google, stack is now googleelgoog
!\{=?!\l ?
Starts at the first \. Rolls the stack one to the left. If top two elements aren't equal, moves to next line. Otherwise, if the stack is length is zero, the strings are equal, so also step to next line.
=< ;n6<
Starts on the 1st < if the string was 'google'. This is only reached when the stack is empty, so attempting to pop any number of values will cause an error - in this case, = is used. If the string wasn't 'google', outputs 6 and exits.
#`^@.('google'-:])
Usage:
#`^@.('google'-:]) 'googl'
5
#`^@.('google'-:]) 'google'
|domain error
| #`^@.('google'-:])'google'
Explanation
Count (#) if y does not match (-:]) the string 'google', but if it does match, compute e to the power of the string 'google', which is an error.
sub g{sub g{$_=pop;y///c/!/^google$/}}
Call with g(string), print with print g(string).
How it works
The ternary operator only evaluates the expression if the condition is met. So when the input isn't google, it simply returns the original string and passes it on to length. However, is the input is google, it tries to divide by zero and causes this error:
Illegal division by zero at filename.pl line 1.
And as we all know, dividing by zero will break the internet (and the rest of reality).
Changes
return to print and removing unneeded parentheses.
return keyword? sub g{length($_[0]=~"google"?1/0:$_[0])}
\$\endgroup\$
Commented
Sep 30, 2015 at 18:13
sub g{$_=pop;y///c/!/^google$/}
\$\endgroup\$
[ "$1" = google ];bc<<<$#1/$?
Sample output:
$ zsh not_google.sh oogle
5
$ zsh not_google.sh google
Runtime error (func=(main), adr=5): Divide by zero
The first command exits true (zero) when the argument equals "google" and false (one) otherwise. That exit code is stored in $? until another command completes, allowing us to divide by that number.
We then run bc (with input via herestring) to compute the length of the argument divided by that exit code. This is either length ÷ 1 (the length) or length ÷ 0 (an error).
An un-golfed version:
if [ "$1" = google ]; then
divisor=0
else
divisor=1
fi
length="${#1}"
echo "$length / $divisor" |bc
This uses the same logic, but bash can't handle $#1 without braces:
[ "$1" = google ];bc<<<${#1}/$?
This version also has an error when given an empty string, so I assume it doesn't count. It has the exact same output as the previous version (except when given an empty string or no argument).
bc<<<$#1/(0!=${#1#google})
length="${#1}" # the length of the first argument
unprefix_google="${1#google}" # google → "", googler → r, goog → goog, "" → ""
length_unprefix_google="${#unprefix_google}"
if [ 0 != "$length_unprefix_google" ]; then
divisor=1 # $unprefix_google is an empty string
else
divisor=0 # $unprefix_google is not empty
fi
echo "$length / $divisor" |bc
MS T-SQL, 63 bytes
CREATE PROC g @p CHAR(9) AS SELECT IIF(@p='google',1/0,LEN(@p))
Ungolfed code;
CREATE PROC g
@p CHAR(9)
AS
SELECT IIF(@p='google',1/0,LEN(@p))
Called by either EXEC g 'string' or simply g 'string'
Command: EXEC g 'gogle'
Result: 5
Command: EXEC g 'google'
Result: Msg 8134, Level 16, State 1, Procedure g, Line 1 Divide by zero error encountered.
This should work, but IDK for sure since I cant assess a computer at the moment:
Golfed:
int g(String s){if(s.equals("google"))throw new
IllegalArgumentException();return s.length();}
Ungolfed:
int g(String s){
if(s.equals("google")) throw new IllegalArgumentException();
return s.length(); }
I realize I could proably shorten this, let me know in the comments.
It makes sense to use a language developed by Google employees to Google Google!
note that this is actually a valid, compilable program, unlike the other go answer.
will take input forever until "google" is input:
package main
import."fmt"
func main(){a:=""
Scan(&a)
if a=="google"{panic(0)}
Print(len(a))}example i/o:
bing
4
oogle
5
google
panic: 0
goroutine 1 [running]:
runtime.panic(0x480e60, 0xc21000a190)
/usr/lib/go/src/pkg/runtime/panic.c:266 +0xb6
main.main()
/home/cat/projects/go/src/not-google/main.go:10 +0x115
exit status 2
ungolfed:
package main
import . "fmt"
func main() {
a := ""
Scan(&a)
if a == "google" {
panic(0)
}
Print(len(a))
}apparently i had forgotten that var a string is just "" aka empty string. sigh.
This language was created after the challenge was posted.
'?{"google"b~z~y!}
' # read input from command line
?{ ~ ~ } # if-else statement
"google" # push "google" to the stack
b # == on top two stack items (input and "google")
z # non-existent opcode raises an exception
y # push the length of the TOS to the stack
! # output the TOS
'?{"google"b_z_y!}
The code is called via the command line as follows:
./mw <path-to-code> -i <input>
function g(s)return #(s~='google'and s)end
This creates a function g that takes an argument s and (assuming it is a string) returns the length (#) of the result of the evaluation s~='google'and s, which equates to s if s is not 'google', or false if it is. Since there is no length of false, if s is google, this will error, else, it will return the length. Simple and effective.
I know there are other Lua answers, and that I could shorten this by using io.read(), but I'm going to disregard both of those for the same reason: they don't actually use functions, like the question specifically calls for.
If I'm wrong in that it doesn't need to be a function, we can cut this to 32 bytes by doing:
s=io.read()g=#(s~='google'and s)
def g(s):s|length/({"google":0}[s]//1);
Sample run:
bash-4.3$ bin/jq -n 'def g(s):s|length/({"google":0}[s]//1); g("google")'
jq: error (at <unknown>): number (6) and number (0) cannot be divided because the divisor is zero
bash-4.3$ bin/jq -n 'def g(s):s|length/({"google":0}[s]//1); g("yahoo")'
5
On-line test:
And it even works with foreign languages ...
Note: Mathcad displays errors by showing the expression in red; clicking on the expression shows the error message.
