63

Labyrinth, 5 bytes ): \! ♫ The IP in the code goes round and round ♫ Relevant instructions: ) Increment top of stack (stack has infinite zeroes at bottom) : Duplicate top of stack ! Output top of stack \ Output newline


55

Python, Score: 24 16 This solution, like Falko's one, is based on measuring the "foreground" area and dividing it by the average grain area. In fact, what this program tries to detect is the background, not so much as the foreground. Using the fact that rice grains never touch the image boundary, the program starts by flood-filling white at the top-left ...


53

Python, no string manipulation def f(n): n += 1 p = 1 m = n while m: if m % 1000 == 666: n += p - n % p p *= 10 m /= 10 return n Works by finding powers of 10, p, where 666 appears, and adding p - n % p to n which replaces 666xxxxx with 66700000.


50

JavaScript (updated to work with all test cases) The little-known truth is that there are actually four 6s, but one of the betrayed the others and polymorphed into code form to eradicate them from the world digits of the numbers. Here is that traitorous six: x=prompt(''+ 'Enter number'); alert( ( (~x[ 'ind'+ 'exOf']('666')))?(x .replace(/666(.*...


46

><>, 8 bytes 01+:nao! Steps: Push 0 on the stack Add 1 to the top stack element Duplicate top stack element Output the top of the stack as number Output a newline Go to step 2 by wrapping around and jumping the next instruction (step 11) (A less memory efficient (hence invalid) program is llnao.)


37

80386 Machine Code, 4 bytes F3 0F B8 C1 which takes the integer in cx and outputs the count in ax, and is equivalent to: popcnt ax, cx ; F3 0F B8 C1 And here is an 11 10 byte solution not using POPCNT: 31 C0 D1 E9 10 E0 85 C9 75 F8 which is equivalent to: xor ax, ax ; 31 C0 Set ax to 0 shr cx, 1 ; D1 E9 Shift cx to the right by ...


36

Jelly, 4 bytes ;\f" Try it online! How it works ;\f" Main link. Argument: S (string) ;\ Cumulatively reduce by concatenation. This yields the array of all prefixes of S. f" Vectorized filter. Keep only occurrences of the nth letter in the nth prefix.


36

Dyalog APL, 6 2 bytes ⊥⍨ Test it on TryAPL. How it works ⊥ (uptack, dyadic: decode) performs base conversion. If the left operand is a vector, it performs mixed base conversion, which is perfect for this task. For a base vector b = bn, ⋯, b0 and a digit vector a = an, ⋯, a0, b ⊥ a converts a to the mixed base b, i.e., it computes b0⋯...


35

JavaScript (Node.js), 38 bytes a=>a.map(v=>(n+=v>p&&v-p,p=v),p=n=0)|n Try it online! Simply a greedy algorithm which scan from left to right, only draw lines if needed, and draw it as long as possible. Thanks Arnauld, save 2 3 bytes


29

JavaScript - 184 169 (with jQuery) b="input",a="<input type=checkbox>",c=":checked";$("body").html("SELECT ANY TWO"+a+"FAST"+a+"GOOD"+a+"CHEAP").click(function(){$(b).not(c).attr("disabled",!!$(b+c)[1])}) http://jsfiddle.net/L33JK/16/ EDIT: improved with help from @Daniel Lisik - https://codegolf.stackexchange.com/a/26805/16278


28

Python + OpenCV : Score 27 Horizontal line scanning Idea : scan the image, one row at a time. For each line, count the number rice grains encountered (by checking if pixel turns black to white or the opposite). If number of grains for the line increase (compared to previous line), it means we encountered a new grain. If that number decrease, it means we ...


28

MATL, 19 18 17 13 bytes 5 bytes off thanks to @LeakyNun's idea (see his answer) of using the imaginary unit as a base for exponentiation. Jj11\^Ys8#uos Try it online! Test cases: 1, 2. Explanation The code traces the path using unit steps in the complex plane. Then it counts how many times each position was visited, and outputs how many positions were ...


28

05AB1E,  8 7  5 bytes Saved 2 bytes thanks to @Adnan 0š¥þO Try it online! How? This is using the algorithm that was first found by @tsh. If you like this answer, make sure to upvote their answer as well! Each time a skyscraper is lower than or as high as the previous one, it can be painted 'for free' by simply extending the brushstrokes. For ...


26

bash (20) seq $1 $2|grep -c $3 Usage $ bash count.sh 0 1000000 2 468559


24

Python + OpenCV: Score 84 Here is a first naive attempt. It applies an adaptive threshold with manually tuned parameters, closes some holes with subsequent erosion and dilution and derives the number of grains from the foreground area. import cv2 import numpy as np filename = raw_input() I = cv2.imread(filename, 0) I = cv2.medianBlur(I, 3) bw = cv2....


24

Haskell, 21 bytes main=mapM_ print[1..] Arbitrary-precision integers and infinite lists make this easy :-) Luckily mapM_ is in the Prelude. If Data.Traversable was as well, we even could shrink it to 19 bytes: main=for_[1..]print


23

Javascript (ES5) with jQuery - 143 (Demo) I modified Matt's solution and golfed it as far down as I think it can go: $("*").html(["SELECT ANY TWO","FAST","GOOD","CHEAP"].join("<input type=checkbox onclick=(a=$('input:not(:checked)')).prop('disabled',!a[1])>")) Javascript (ES5) without jQuery - 185 175 (Demo) Using jQuery is kind of cheating, so ...


23

Gol><>, 3 bytes P:N Steps: Add 1 to the top stack element (at start it is an implicit 0) Duplicate top stack element Pop and output the top of the stack as number and a newline Wrap around to step 1 as we reached the end of the line


23

Jelly, 6 bytes Qx2œ&@ Try it online! or verify all test cases. How it works Qx2œ&@ Main link. Argument: s (string) Q Unique; deduplicate s. x2 Repeat each character. œ&@ Take the multiset intersection of s and the previous result.


23

Retina, 1 byte ] Try it online! (The first line enables a linefeed-separated test suite.) By default, Retina counts the number of matches of the given regex in the input. The unwrapped size is simply equal to the number of [] pairs in the input and therefore to the number of ].


23

Python 2, 77 75 74 70 bytes Thanks to @MartinEnder for suggesting the limit of 9e5 which enderd up working after a change.Thanks to @mschauer for suggesting an infinite stream, saving 4 bytes. def f(n=0): i=f() while 1:n+=1;yield next(i)if'7'in`n`or n%7<1else n This is a generator that yields an infinite stream of the numbers.


23

05AB1E, 3 bytes Code: ÝJg Uses the CP-1252 encoding. Try it online! Explanation: Ý # Range [0 .. input] J # Join into one string g # Get the length of the string


22

Mathematica, score: 7 i = {"http://i.stack.imgur.com/8T6W2.jpg", "http://i.stack.imgur.com/pgWt1.jpg", "http://i.stack.imgur.com/M0K5w.jpg", "http://i.stack.imgur.com/eUFNo.jpg", "http://i.stack.imgur.com/2TFdi.jpg", "http://i.stack.imgur.com/wX48v.jpg", "http://i.stack.imgur.com/eXCGt.jpg", "http://i.stack.imgur.com/9na4J.jpg", "...


21

Marbelous, 11450 4632 bytes Printing decimals is a pain!! Definitely not winning with this one, but I thought I'd give it a shot. I hope it's ok that it pads the output to 40 zeros (to fit 2^128). 00@0..@1..@2..@3..@4..@5..@6..@7..@8..@9..@A..@B..@C..@D..@E..@F..@G..@H..@I..@J \\++..00..00..00..00..00..00..00..00..00..00..00..00..00..00..00..00..00..00.....


21

Pyth, 6 bytes Thanks to @Doorknob for taking off 1 byte. Thanks to @Maltysen for taking off 5 bytes. s@VQ._ Try it online! How it works For example, take the string "bonobo". ._ makes a list: ['b', 'bo', 'bon', 'bono', 'bonob', 'bonobo'] VQ._ means "the preceding function vectorized (applied in parallel) over Q and ._", which means Q (the input ...


21

Python 3.8 (pre-release), 51 bytes lambda s:((c:=s.count)('o')-c('/'),c('/o'),c('/-')) Try it online!


20

Applescript This site doesn't have enough Applescript answers. Lets banish some demons! property demon : "666" property trinity : 1 on exorcise above possessed set possessed to possessed as text set relic to AppleScript's text item delimiters set AppleScript's text item delimiters to demon set deliverance to possessed's first text item ...


20

GolfScript, 20 bytes ~]7/${2%256base}/)\- Try it online. Test cases $ echo 0.0.0.0 255.255.255.255 | golfscript range.gs 4294967296 $ echo 255.255.255.255 0.0.0.0 | golfscript test.gs 4294967296 $ echo 1.2.3.4 1.2.3.4 | golfscript test.gs 1 $ echo 56.57.58.59 60.61.62.63 | golfscript test.gs 67372037 How it works ~] # Evaluate and collect into ...


20

C# + OpenCvSharp, Score: 2 This is my second attempt. It is quite different from my first attempt, which is a lot simpler, so I am posting it as a separate solution. The basic idea is to identify and label each individual grain by an iterative ellipse fit. Then remove the pixels for this grain from the source, and try to find the next grain, until every ...


20

K, 4 bytes #,/\ In K, ,/ will join all the elements of a list. The common idiom ,// iterates to a fixed point, flattening an arbitrarily nested list completely. ,/\ will iterate to a fixed point in a similar way, but gather a list of intermediate results. By counting how many intermediate results we visit before reaching the fixed point (#), we get the ...


Only top voted, non community-wiki answers of a minimum length are eligible